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Chapter 1. Introduction 


ABOUT THIS MANUAL 

This manual will show you how to operate the 5110 using the BASIC 
language. If you are already familiar with the BASIC language, you 
may be able to skip most of the language-only topics and simply learn 
how to operate the 5110. If you are not familiar with the BASIC 
language, you should read the manual from cover to cover while 
performing the suggested keying operations or examples on your 
5110. Not all of the features and functions of the BASIC language are 
discussed in this manual. For more information about the 5110 or the 
BASIC language, see the IBM 5110 BASIC Reference Manual, 

SA21-9308, or the IBM 5110 BASIC User's Guide, SA21-9307. 

This manual assumes that your 5110 has been installed and checked 
out. If this is not the case, use the IBM 5110 Customer Setup Manual, 
SA21-9318, to install your system. 


ABOUT BASIC 

BASIC is an interactive computer language; that is, whatever you enter 
into the system is processed immediately. BASIC has many built-in 
functions that allow you to effectively solve your problems. BASIC 
also allows you to write programs using BASIC language statements 
and facilities. These programs can be stored on the tape cartridge or 
diskette for later use. 

BASIC is a good language to experiment with. Nothing you do from 
the keyboard can damage the system; and the more you experiment, 
the more you will learn about BASIC and the system. 


ABOUT THE 5110 

The 5110 Model 1 (Figure 1) is a computer designed to help solve your 
business problems. The display screen and indicator lights 
communicate information to you, and the keyboard and switches allow 
you to control the operations the system will perform. The 5110 
Model 2 is identical to the 5110 Model 1 except that it does not 
contain the built-in tape unit. 

Before you begin to use the 5110, you should become familiar with the 
keys and the control panel (Figure 1). The control panel consists of a 
series of switches, which will be explained later. 
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What follows is a brief description of the keys. How you use the keys 
will be described later. For now, familiarize yourself with the names 
and locations of keys on the system. Figure 2 shows a BASIC-only 
keyboard, and Figure 3 shows a combined BASIC/APL keyboard. 

If your system is equipped to operate either BASIC or APL programs, 
you may be unfamiliar with the symbols appearing at the top and on 
the front of the alphameric keys (Figure 3). For BASIC operations, 
even on a BASIC-only machine (Figure 2) where they are not shown 
on the key top, these symbols can be displayed or printed, although 
their APL functions do not apply to BASIC operations. See the IBM 
5110 BASIC Reference Handbook, GX21-9309, for the APL characters 
and their locations. 


o 




IN PROCESS 
Indicator 

PROCESS 
CHECK Indicator 


REVERSE 

DISPLAY 

Switch 


L32 64 R32 
Switch 

BRIGHTNESS 


POWER ON/OFF 
Switch 


BASIC/APL 

Switch 

RESTART 
Switch 
DISPLAY 

REGISTERS/NORMAL 
Switch 


Display 

Screen 


CMD Key 



Tape 

Cartridge 


Special 

Operator Keys 


Arithmetic 

Operator 

Keys 


EXECUTE Key Numeric Keys 


Shift Keys 


Y, / 


pf "Y 

\_S 


,4 Y 

\ .,/ 


Figure 1. IBM 5110 Model 1 Computer 
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LOAD SAVE RUN GO LIST UTIL AUTO RENUM Calc Result | Mark ID Delete Insert 




CD □ 0 0 0 CD CD CD CD CD CD D 
CD CD CD CD □ CD CD CD QCDO CD 
□ □□□□□□□ QCDCDCD 
CD CD CD CD CD CD CD CD CD CD CD 



C 


] 


0QG Q 

□ □CD □ 

□ □□ 0 
C0D0 □ 


Figure 2. BASIC-Only Keyboard 


BASIC ( LOAD If SAVE )( RUN )[ QQ DC LIST DC UTIL )(~AUTO )( RENUM Ifcalc Resulilf Mark DCjQf Copy 

Display 




0000000000Q0 

CD CD CD CD CD CD CD CD CD CD CD CD 

□□□□□□□□©□□□ 
00000000000 
C 


i 


0 □ □ 0 

□ □ Q Q 

□ □□ □ 
CZD0 0 


Figure 3. Combined BASIC/APL Keyboard 


Introduction 





Alphameric Keys 


The alpha keys are similar to those on a standard typewriter, except 
that there are no lowercase characters. The alpha characters are all 
uppercase, even though they are in the lowercase position on the 


keys. Thus, you do not use the shift key 


for alpha characters. 


If you want to enter an upper-shift character, you must hold down the 
shift key and then press the key to enter the character, just as you 
would to type an uppercase character on an ordinary typewriter. 

You can also enter lowercase alphabetic characters from the keyboard. 
How you enter lowercase alphabetic characters is discussed later in 
this chapter. 


o 

o 

o 


Numeric Keys 

Either the top row of alphameric keys or the special calculator 
arrangement of numeric keys on the right of the keyboard can be used 
to enter numbers. 




Operating Keys 

The dark gray keys with the legend names CMD, EXECUTE, ATTN, 
and HOLD, and the dark gray keys with the arrows are special 
operating keys {Figure 4). The dark gray keys with the arrows and the 
spacebar (used to enter blank characters) automatically repeat the 
operation they perform when held down. 


Attention Key' 


'If you get an error, 
press this key to make 
the display stop flashing. 



Figure 4. Special Operating Keys 
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BASIC Command Keywords 


The words listed above the top row of alphameric keys (1-0) are 
BASIC command keywords that you can enter by holding down the 
CMD key and then pressing the key below the desired command. For 
example, to enter the LOAD command keyword, hold down the CMD 
key and press 1. These commands and their use are described later. 


BASIC Statement Keywords 

Notice the special character combinations of BASIC keywords 
engraved on the front of the alphabetic keys. If you have a combined 
APL/BASIC machine, there is also an APL special character 
combination on the front of the key. You can enter the BASIC 
keywords by holding down the CMD key and then pressing the 
appropriate key. You will see how these BASIC keywords are used as 
you become familiar with the BASIC language. 



i. /' 



BASIC Statement Keyword 
APL Special Character Combination 


Note : You can use the APL special character combination only when V > 

you are using your system as an APL machine. 


Arithmetic Operator Keys 

The four keys to the right of the calculator arrangement of numeric 
keys are the arithmetic operator keys that are used to perform 
division, multiplication, subtraction, and addition. These operator keys 
also appear on the alphameric keyboard. In BASIC the symbol / is 
used for division, and the symbol * is used for multiplication. 


GETTING STARTED 

Make sure the switches on your control panel are set as follows: 


Switch 

Setting 

L32 64 R32 

64 

DISPLAY REGISTERS/NORMAL 

NORMAL 

BASIC/APL (combined machines only) 

BASIC 






7 



6 




If your system has the BASIC/APL switch, it can execute either BASIC 
or APL language statements. The language used is selected only 
during the power up procedure or when the RESTART switch is 
pressed. Make sure your system is plugged in and turn the power on. 
If the power is already on, press RESTART and wait a few seconds. 
During this time, the system performs internal checks to make sure it 
is operating correctly. Do not press any keys while these internal 
checks are being made. If you inadvertently press a key, you must 
press RESTART to continue. 

If an error is detected during these checks, the PROCESS CHECK 
indicator may come on. If the PROCESS CHECK indicator comes on, 
press RESTART. The system will again perform the internal checks. If 
the light comes on again, call for maintenance service. 

The IN PROCESS indicator comes on whenever the display screen is 
blank, which indicates that the system is doing internal processing. 


ENTERING AND DISPLAYING DATA 

Next, let's look at the display screen. Your display screen should look 
like this: 



If the READY message does not appear, press RESTART again, and 
wait a few seconds. If the READY message still does not appear, call 
your maintenance personnel. 


Introduction 7 




The LOAD 0 (zero) message indicates that the system has a clear work 

area. The flashing underline (_) between the LOAD 0 and READY 

messages is called a cursor. It tells you where the next character you 
enter will be displayed. The READY message indicates that the 
system is ready to receive your instructions. The number in the lower 
right corner, indicated by the NNNNN on the display screen drawing, 
is the number of character positions (bytes) in the work area available 
for your instructions and data. This number changes during 
processing. The number is omitted on the remaining display screen 
drawings in the manual. The number following NNNNN (001) indicates 
the cursor position on the screen. 

The display screen can contain up to 16 lines of data. The bottom line 
indicates the status of the system and specifies the number of bytes 
available in the work area (NNNNN) and current cursor position. The 
line next to the bottom displays the input you are entering from the 
keyboard. The remaining lines display the preceding 14 lines that have 
been entered and processed. When the data on the input line is 
processed, that line is moved up one line, leaving the input line empty 
so that more data can be entered. Up to 64 characters of data can be 
entered per line. 

Before you start entering data into the system, press the 

key and then hold down and press the 

key (located on the right side of the keyboard). This places your 
system in the same character set used for the examples in this 
manual. See the IBM 5110 BASIC Reference Manual for a description 
of the character sets available with your 5110. Also, for some 5110 
systems, the same character might appear on several keys on the 
keyboard. When doing the keying operations in this manual, always 
use the key with the character engraved in white on the top of the 
key. 

Now let's enter some data into the system. Enter the following 
problem using the numeric keys and arithmetic operator keys: 

□ □□ 



o 

o 


1 .../ 


< . N 


Notice that the characters are displayed as each key is pressed. To 

process the data you just entered, you must press the EXECUTE key. / " 

Press EXECUTE now. V..> 


8 


o 





The display screen shows: 


0 A D 0 
2 + 3 


^ READY 

Notice that the instruction you entered, 2+3, is on the left margin of 
the display screen, while the answer, 5, is indented one position from 
the left margin on the next line. The indentation allows a sign (- or +) 
to be displayed. 

Enter and execute 125+75 by pressing the following keys: 


□ □ 


This display screen shows: 


load 0 

2 + 3 


2 0 0 





The appearance of your display can be changed by switches on the 
control panel. The REVERSE DISPLAY switch allows you to change 
from black characters on a white background to white characters on a 
black background, or vice versa. Change the switch settings and select 
the type of display you feel most comfortable with. You may have to 
adjust the BRIGHTNESS control switch as you change from one 
background to the other. 
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Now watch the display as you set the L32 64 R32 switch to the L32 
position. With the switch in this position, the leftmost 32 characters 
on each line are displayed with a space between characters. With the 
switch in the L32 position, your display screen shows: 



L 0 A D 0 
2 + 3 


2 0 0 


R E A D Y 

V.___ 



V / 


Now set the switch in the R32 position and notice that the display is 
blank (except for the storage number and cursor position). In the R32 
position, the rightmost 32 characters are displayed with a space 
between characters. 


Return the switch to the 64 position, and notice that all characters are 
displayed without the space in between. For the exercises in the 
remainder of this book, keep the switch in the 64 position. 


There are two dark gray keys with narrow white arrows above the 
numeric keyboard. These keys move the display lines (except the 
status line) up or down. The scroll up key flB moves the display 


lines up one line, and the scroll down key 


moves the 


display lines down one line. Both keys continue to move the display 
lines if they are held down. Now use the scroll down key to 

move the display down two lines. 


/' "\ 

V 


The display screen shows: 



/f~ \ 


.,/ 
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Use the forward space key 


and move the cursor to the right 


of 200. Notice that the cursor (the underline) is replaced by a flashing 
character as you space the cursor through the numeric characters. The 
flashing character serves the same function as the cursor; it indicates 
the position in the line where input from the keyboard will be 
displayed. Now, press the following keys: 


□ 


The display screen shows: 




You are now familiar with the format of the display screen. From this 
point on, only the line or lines being discussed will be shown. 
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Entering Lowercase Alphabetic Characters 


Although only the standard BASIC alphabetic characters are shown on 
the 5110 keyboard, you can enter lowercase alphabetic characters by 
changing the 5110 to lowercase character mode. One way to change 
the 5110 to lowercase character mode is to press the HOLD key (the 
characters HOLD are displayed in the lower left corner of the screen), 
then hold down the SHIFT key and press the scroll down key. 

The 5110 is now in lowercase character mode. For example, press 
the □ key. The display screen looks like this: 


Now, hold down the shift 

E 

display screen looks like this: 
kK_ 

Finally, hold down the command 


key and press the 


m 


key. The 




key and press the 


□ 


key. The display screen looks like this: 
kK'_ 

In this example, you are not going to execute the data just entered 
from the keyboard. Instead, press the scroll up key once to 


remove the data from the input line. Now, to return the 5110 to the 
standard BASIC character mode, press the HOLD key, and then hold 
down the shift key and press the scroll up key. The 


5110 is now in standard BASIC character mode. 


Note : All the entries in this manual are entered in standard BASIC 
character mode. 


o 

o 

o 




ff .-\ 






Correcting Keying Errors 

The system has a number of very useful functions that allow you to 
correct errors made while entering data. On a line-by-line basis, at any 
time, you can 

• Replace a character 

• Delete a character 

• Insert a character 


Replace a Character 


or forward space key until it is at the incorrect character. The 

B 

cursor moves one character space in the direction of the arrow each 
time the appropriate arrow key is pressed. These keys will continue to 
move the cursor if they are held down. The incorrect character is then 
replaced simply by keying the correct character over the incorrect 
character. (In some instances, characters can be combined to form a 
character not on the keyboard; for example, the period and quotation 
mark combine to make an exclamation mark. If you want to replace 
one of these characters (the . or ') with the other, you should 
backspace to the character, press the spacebar to blank the character, 
backspace again, then enter the desired character.) 

For example, you want to do the problem 22+12, but you press the 
following keys: 


The display screen shows: 



To replace a character, move the cursor with the backspace key 


Introduction 13 




To correct this error, the cursor must be moved back one position 
(under the second 1) so that character can be rekeyed. Now, press 
the backspace key once. To correct the keying error and 

execute the problem, press the following keys: 




Delete a Character 


To delete a character, you also use the backspace key 


or the 


forward space key 


to position the cursor. Once the cursor is in 


the position of the character to be deleted (the character is flashing), 
hold down the CMD key and press the backspace key once. 


The character is then deleted, and any characters to the right are 
shifted one position to the left to close up the space left by the 
deletion. 


For example, you want to do the problem 13+45, but you press the 
following keys: 



v 


□□□□□□ 


The display screen shows: 


Press the backspace key to move the cursor (flashing character) back 
to the 2. Look at the labels that appear above the backspace and 
forward space keys: Delete and Insert. To perform the delete function, 
hold down the CMD key while you press once. 


The display screen shows: 



This character is flashing. 


Now press EXECUTE to execute the problem. Pressing the EXECUTE 
key processes the entire line regardless of the position of the cursor. 


You can also use the 




key to delete all the characters from the 


cursor position to the end of the line. For example, you press the 
following keys: 


QQQQ000□ 


The display screen looks like this: 


However, you only want to do the problem 8+6. Now, press the 
backspace key and move the cursor back to the then press m. 


iTT 


The display screen looks like this: 


Press the EXECUTE key to execute the problem. 
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Insert a Character 


To insert a character, position the cursor using the backspace key 



or the forward space key 


then hold down the CMD key and 


press the forward space key once. This operation moves 


the flashing character (and all other characters to the right of it) one 
position to the right, creating the space you need to insert one 
character. The cursor is not moved and is now displayed as an 
underline. To insert the character, simply press the character key. If a 
character is in the last (64th) position of the line, the insert function is 
ignored. 


For example, you want to do the problem 123*6, but you press the 
following keys: 


o 

C3 




> 


00QQ 

\ 

The display screen shows: 




To correct the error, press the backspace key to move the cursor 
(flashing character) back to the 3. Look at the labels that appear above 
the backspace and forward space keys: Delete and Insert. To perform 
the insert function with the cursor position at the 3, hold down the 
CMD key while you press once. 


The display screen shows: 


.i. 


It- 


/f ~ \ 


1 ,/ 
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To correct the keying error and execute the problem, press the 
following keys: 



There is one more way to correct a keying error. If you make several 
errors halfway through the line, you can backspace the cursor to the 
character following the last correct character and then press the ATTN 
(attention) key. This causes everything from the cursor position to the 
end of the line to be cleared from the display screen. 

Because the data from the input line is not processed until the 
EXECUTE key is pressed, you can visually verify any input before it is 
processed. However, if you do press EXECUTE before you notice a 
mistake, you can simply enter the input again, or you can use the 
scroll down key to move the input back to the input 

line and correct it. When the corrections have been made, press 
EXECUTE again. 

For example, you want to do the problem 135+280, but you entered 
and executed 134+280. The display screen shows: 



To correct the original input, press the scroll down key three 

times to get the original input back to the input line. The display 
screen shows: 


'This character is flashing. 


You may now correct the error, and then process the data again by 
pressing EXECUTE. 
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Chapter 2. How Your System Handles Arithmetic 


The following examples show some common, simple arithmetic 
operations you can do on your system. 


ARITHMETIC OPERATORS 

Before you begin these simple operations, you should know that some 
of the arithmetic signs (called operators) you are accustomed to using 
are different when you use the BASIC language. For example, the 
multiply sign (x) is not used in BASIC. Instead, the asterisk (*) is used 
for multiplication. Similarly, the divide sign (*) is replaced by the slash 
(/) in BASIC. The sign for exponentiation (raising to a power) in 
BASIC is + (the upper shift character on the Y key) or **. Now enter 
these problems: 


Arithmetic 


You Press 


The Display Screen Shows 


Add 5 and 8 


Subtract 8 from 5 


Multiply 5 times 8 


□ 00 
0DQ 

□ 00 
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Arithmetic 


You Press 


Divide 5 by 8 


□ 00 


5 to the power of 2 


□ CD □ 

(Hold down the shift key 
and press the Y key to get 
+ symbol.) 


The Display Screen Shows 


!"i / O 


READY 



(READY 


o 

o 

o 


4 to the power of 2 


0 Cp 0 

i % 


!•!• V: 2 


READY 


A. / 

Problems: Using Addition, Subtraction, Multiplication, and Division 

1. Find the total number of cars that a dealer sold during one week 
if his daily sales were 3, 5, 2, 6, 7, 3 and 4. 

2. Find the net number of cars removed from the same dealer's lot 
if 20 people had trade-ins. 

3. Find the dealer's average profit per car if he made a total profit 
of $2700 for the sales in problem 1. 

4. Find the dealer's total earnings if he made $20 on each car sold. \ S 


Possible Solutions 


f .\ 


Problem 1: 





Problem 2: 


c 

31 j ■••• 2 0 
1 0 

c 

Problem 3: 

2 ? 0 0 / 2 


Problem 4: 




VARIABLES 

You can store data, either direct input that you enter from the 
keyboard or the result of a calculation. These stored items are called 
variables. Each variable has a name associated with it. Whenever you 
use the name of a variable, BASIC supplies the value associated with 
that name. 



Variables That Stand for Numbers 

You can name a variable in BASIC with a single character of the 
extended BASIC alphabet (A-Z, @, $, and #). A BASIC variable can 
also be named with one of the preceding letters or symbols followed 
by a single digit (0 through 9). Typical variable names are A2, #9, and 
B1. You can name a maximum of 319 different numeric variables in 
BASIC. 


Assigning Values to Variables 

Variables are assigned values by means of the equal (=) sign. The 
value to the right of the = sign is assigned to the name to the left of 
the = sign. After you assign a value to a variable, you can use the 
variable in a calculation. 
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Examples 

To illustrate the use of variables, enter the following: 



@□□0 



After you press the 
EXECUTE key, you have 
created a variable named A 
with a value of 12. 



\ / 


A 


and 


jg p~~j pi 


V 


□□ 




The result of a calculation 
can also be assigned 
to a variable. 


4 

\ y 
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0Q00Q00 



You can change the value 
of a variable the same 
way you assigned the 
original value. 


C 

C 



You can also use the 
variable and change its 
value in the same 
instruction. 

This is a useful 
programming tool 
that will be explained 
further in a later chapter 
of this book. 



If you want to know the 
current value of a variable, 
you simply enter the name 
of the variable. 




If you use the name of 
a variable to which you 
have not previously 
assigned a value, the 
system automatically 
assumes its value 
is zero (0). 
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Performing Several Functions in the Same Expression 

In the preceding examples, only one arithmetic function was used in 
each example. However, you are not restricted to writing instructions 
with only one function. Any number of functions can occur in the 
same instruction. As soon as you use more than one function, 
however, you must be concerned about the order in which they are 
used. 


The Sequence of Arithmetic Operations 

BASIC has a prescribed order of arithmetic execution called arithmetic 
hierarchy. When two or more operators such as +, -, *, /, or + are 
used, arithmetic is performed according to this hierarchy. That is, 
operators with higher priorities are performed first, while operators 
with the same priority are performed as they are encountered from left 
to right. The arithmetic hierarchy in BASIC is: 

1. Operations enclosed in parentheses (highest priority) 

2. Mathematical functions (for example, sine, cosine, or square root) 

3. Exponentiation (f or **) 

4. Positive/negative operations (described later) 

5. Multiplication and division (*, /) 

6. Addition and subtraction (+, -) (lowest priority) 

When an operation is enclosed in parentheses, it is performed first, 
even though the operator enclosed in the parentheses may have a 
lower priority than the operators outside the parentheses. As a result, 
the prescribed order of execution can be changed if you use 
parentheses. Operations enclosed in parentheses are executed in 
BASIC before operations outside parentheses , regardless of the 
hierarchy of the operators. 

Some examples of arithmetic hierarchy are: 

3+4/5 

4/5+3 

In both of these examples, the 4 is first divided by the 5 because the 
divide operation has the highest priority. The .8 result is then added to 
the 3, giving a final result of 3.8. 
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Another example is: 


(3+4)/5 

In this example, the 3 and 4 are first added because they are enclosed 
in parentheses. The result, 7, is then divided by 5, giving a final result 
of 1.4. 

In the expression 
16+23-4+133-8 

addition and subtraction occur from left to right in the following 


sequence: 


16 


+ 23 


39 

Interim result 

- 4 


35 

Interim result 

+133 


168 

Interim result 

- 8 


160 

Final result 


However, when parentheses are added, the sequence of operations 
can change: 

(16+23)-((4+133)-8) 


In this example, the operations occur in the following sequence: 


1 . 

Proceeding from left to right, the 

16 



expression in the first set of 

+ 23 



parentheses is evaluated. 

39 

Interim result 1 

2. 

The parenthetical expression within 

4 



the second set of parentheses is 

+ 133 



evaluated next. 

137 

Interim result 2 

3. 

The second set of parentheses 

137 



is now evaluated. 

- 8 




129 

Interim result 3 

4. 

Finally, the subtraction (having the 

39 

Interim result 1 


same priority as addition) is per¬ 

-129 

Interim result 3 


formed and the result is displayed. 

- 90 

Final result 
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Although the numbers and operators in this expression are the same 
as those in the previous example, the parentheses completely change 
the order of the operations and the final result. 

Now, determine the result of the following expression by entering the 
numbers, then pressing the EXECUTE key: 

4t(3*(4-2)) 

The order of the arithmetic operations is: 4-2=2, 3x2=6, and 4 6 =4096. 
The display screen shows: 


o 

o 


Figure 5 shows other examples of arithmetic expressions. 


This is the Way it 

Looks as Arithmetic: 

This is the Way 

it Looks in BASIC: 

This is What it Means: 

a+b+c 

2 

(A+B+O/2 

First add A, B, and C; 
divide the sum by 2. 

a+^c 

2 

A+(B+C)/2 

Add B and C, divide the 
sum by 2; add the result 
to A. 

3a+4 

3* A+4 

Multiply A by 3; then 

add 4. 

3(a+4) 

3*(A+4) 

Add A and 4; multiply 
the sum by 3. 

x 2 +7 

Xt2+7 

Square X and add 7. 

(x+7) 2 

(X+7)f 2 

Add X and 7; square the 
quantity. 

(x+1) 2 

2 

(X+1)t2/2 

Add X and 1; square the 
quantity; divide the 
result by 2. 

'_£\ 

\ 2 ) (x+y) 

3 

(Xt2/2)*(X+Y)/3 

Square X and divide by 

2; add X and Y and multiply 
by the previous result; divide 
that result by 3. 


Figure 5. Examples of Arithmetic and BASIC Expressions 
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As you can see, the more complicated the arithmetic expression looks, 
the more complicated the BASIC expression looks. When you are 
writing BASIC expressions, remember that parentheses must always 
be in balanced pairs-as many right parentheses as left parentheses. If 
a statement gets too complicated, you can usually break it down into 
several simpler statements. 


Positive/Negative Operators 

The plus (+) and minus (-) signs indicate that a number is positive or 
negative. When used for this purpose, the + and - signs have a higher 
priority in the arithmetic hierarchy than they have when used for 
addition and subtraction. In the following example: 

-2+2-3 

the 2 is raised to the second power, and the minus is assigned to the 
result before the subtraction of the 3. 

One rule that you must follow is that you cannot use two operators 
sequentially, except ** which is the same as +. Sequential operators 
must be separated by parentheses. This rule applies to both the 
arithmetic operators (+, -, *, /, and +) and the positive/negative 
operators (+ and -). For example, enter 7' 3 as 7+-3. The flashing 
display screen shows: 


The lower arrow indicates the syntax error. Press ATTN to stop the 
flashing screen, then enter the corrected expression, 7 +(-3). A 
complete description of system error messages is included in the IBM 
5110 BASIC Reference Manual, SA21-9308. 
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You must use parentheses to separate consecutive operators, as in the 
following examples: 

Invalid Valid 

6+-4 6+(-4) 

3*-1.5 3*(-1.5) 

8-4 8-(-4) 


Try to solve the following problems using your system. Remember to 
press EXECUTE after entering each problem. 



Answers 





The order of arithmetic operators applies when variables are used 
also. For example, evaluate the following expression, where A=12 and 
B=4: 

Z' \ 

A times B plus {2 to the power of B) V. / 



The correct answer is 64. 


A Note About Numbers 

When you use numbers in BASIC, they can be: 

• Integers (whole numbers) such as: 

2, -76, 842, 10000000, or 999111 

• Decimal numbers such as: 

-1.5, 3.7772, 0.00081, or -457.25 

• Numbers in exponential format such as: 

6E7 (meaning 6x10 7 ) or 5.4E-3 (meaning 5.4x10 3 ) 




A Note About Names 


When you name numeric variables in BASIC, they can be: 

• A single character of the extended BASIC alphabet (A-Z, $, or #) 

such as: 

$, C, or V 

• A single character of the extended BASIC alphabet (A-Z, @, $, and 
#) followed by a single number such as: 

A4, $6, $3, or T3 


Variables That Stand for Characters 

While you usually think of variables as standing for numbers, in BASIC 
you can let a variable stand for combinations of characters such as 
words or names. If a variable is going to represent a word or a name, 
it is called a character variable. You name character variables with 
one letter of the extended BASIC alphabet (A-Z, @, $, and #) followed 
by a dollar sign ($). The dollar sign tells the system that the variable is 
a character variable. 

To assign a word or name to a character variable, you enclose the 
word or name in single quotation marks following the equal sign. 

When character data is displayed, the single quote marks do not 
appear. For example: 

A$='HARVEY SMITH' 

Here are the general rules: 

• A character variable is named by a single letter of the extended 
BASIC alphabet followed by a dollar sign ($). 

• To assign a value to the character variable, enclose the words or 
names you are assigning in single quotation marks following the 
equal sign. 

• The maximum length of a character variable is 255 characters 
(default length is 18 characters). 
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Using Calculation Results 


o 


When you are entering a series of expressions in which the result 
from one expression is used in the next expression, you can use the 
key (while holding down the CMD key) to insert the result 

of the last expression. This is the calc result function. Notice that Calc 
Result is listed above the 


0 


key. For example, key the following: 


< > 



00 

so 

a □ 
BQ 
80 



\ p 


\ / 


v> 
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The display screen shows: 


Notice that the system inserted the result of A*C into the second 
expression. 

The calc result function will always insert the result of the last 
calculator expression (character expressions as well as arithmetic 
expressions). You must hold down the CMD key while you 
press ( for the calc result function. Arithmetic results are 

u 

enclosed in parentheses to avoid any conflict with adjacent operators 
in case the result is negative. Character results are enclosed in single 
quotation marks, just as they were when they were assigned. 

Up to this point, you have been operating the system as a calculator. 
Any of the operations described thus far can be performed any time 
the system is waiting for you to enter input, with two exceptions: 

• When a BASIC program is in operation and it stops for keyboard 
input required by an INPUT statement, you cannot perform any 
calculator operations. 

• When you are entering data to create a keyboard-generated data 
file (explained later), you cannot perform any calculator operations. 

Any time, other than the exceptions listed, you can enter any of the 
calculations described. 

You can also stop a program during its operation to display or change 
the values of variables, then continue the program. This is extremely 
useful when you are checking a program for proper operation. 

The following chapters discuss how to program your system using the 
BASIC language. Exercises for this and following chapters are 
provided in Chapter 13. 
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Chapter 3. Entering, Running, and Storing a Program 


A program is your way to communicate with the system to solve a 
problem. The key words in this statement are communicate and to 
solve a problem. All programming is oriented toward problem solving. 
You can solve a problem by first analyzing the problem, then by 
formulating the solution. This involves communication. You can 
communicate with the system using the BASIC or APL language, as 
opposed to your communicating with other people in the English 
language. Thus, a program is little more than a means of translating 
your instructions to solve a problem into a language that the system 
understands. 


ENTERING A PROGRAM 

The following discussion shows you how to enter a BASIC program 
into the system and then how to execute that program. Also in this 
chapter, you will learn how to save a program on a magnetic tape 
cartridge or diskette, then load the program back into the system for 
execution again. 

The program you will enter calculates accumulated savings. This 
calculation requires adding to the initial principal the interest earned at 
a specified rate for some period of time; in this case we use years. 
Enter the statements just as they are shown in the following example. 
Don't forget to press EXECUTE after entering each statement. You 
can enter the statements character-by-character or use the BASIC 
statement keyword keys with the CMD key. If the system detects an 
error in a statement you have entered, the keyboard becomes inactive 
(except for ATTN and HOLD), and the display will flash. To stop the 
flashing display, press ATTN, then correct the error. 
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Now read your entries on the display screen to see if you have 
entered the program correctly. If you find a keying error, the next 
paragraph describes how to correct the error before you run the 
program. If your system has an attached printer, you can hold down 
the CMD key and press the CT "'j key below Copy Display to get a 

ID 

copy of the displayed data. Note that this key is blank on a 
BASIC-only keyboard. The copy display function provides you with 
printed copy of all 16 lines of data. 





Correcting Your Keying Errors 

To correct or change a statement line of a program already entered in 
the system, use the gray scroll keys ( AH and ) to position 


the incorrect line to be changed on the input line right above the 
READY message line. When pressed momentarily, these keys move 
all information on the top 15 lines up or down one line position. When 
you hold these keys down, the display lines will repeatedly move up or 
down. When the line you want to change is positioned correctly, 
which is easy to identify because the first character will be flashing, 
you can use the forward space or backspace key to position the 
cursor at the character to be corrected. You can then use insert and 
delete functions to make the change. Remember, these functions are 
activated only when you hold down the CMD key and 
press ggm (Insert) or (Delete). After all changes 


/C \ 


have been made to the line, press EXECUTE to reenter the line. 


RUNNING THE PROGRAM 

After you have entered the statement lines of the sample program, 
you are ready to run the program. To run the program, enter RUN, 
then press EXECUTE. Any error during execution causes the display to 
flash. Press ATTN to stop the flashing screen, then correct the error. 

You will have to enter RUN again to execute the program. When you 

run the program, the display screen shows: r 

V.. # 

RUN 

INITIAL PRINCIPAL,? 

? /T.\ 

\ _ ■/' 
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You will recognize the prompting message INITIAL PRINCIPAL? as part 
of the second statement in the sample program. This is a PRINT 
statement, which directs information to be displayed. 

Note that the bottom question mark is flashing. The flashing question 
mark is a result of the INPUT statement in the sample program. The 
INPUT statement causes the question mark to be flashed to indicate 
that you are to enter information from the keyboard for the program. 

Now respond to the request for data to be entered by keying a value 
for initial principal, then press EXECUTE. You can enter any number of 
digits you want. The maximum number of significant digits that the 
system will assign to any variable (your variable is P for principal) is 15 
digits. You can include a decimal point, which does not count as a 
digit entry, but you must not enter commas. (Commas indicate 
multiple variables to the system.) 

If you enter a decimal number with more than six digits to the right of 
the decimal point, any digits beyond the sixth are rounded when the 
answer for savings is displayed. The system is initialized to round 
numbers at the sixth decimal position. However, the rounding position 
can be changed to any position from 1 to 15 with the RD= command, 
which sets the rounding position. To set the system to round all 
displayed or printed results and calculations at the second decimal 
position, you would enter: RD=2. 

The rounding command can also be included with the GO and RUN 
commands as described in the IBM 5110 BASIC Reference Manual, 
SA21-9308. Remember that whenever you turn the power on or press 
RESTART, the rounding position is set at 6. 

All examples in this manual are run with the rounding position set to 6 
digits (RD=6). If you change the rounding position, different results 
will be displayed. 

You must remember that when using any programming language, 
including BASIC, you are communicating with the machine, telling it 
what you want it to do. Thus, you should define precisely what the 
machine does not know to avoid unnecessary problems. 

You can enter values for the accumulated savings program as many 
times as you want. After you enter values for interest and years in 
response to the flashing question mark and press EXECUTE, the 
system will display the information you specified and compute the 
answer. 
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The statements in the sample program are described in the following 
paragraphs. In addition. Appendix A contains a short definition of all 
the BASIC statements used in the system. 

Statement Meaning 

10 REM ACCUMULATED The REM (remark) statement 

SAVINGS can appear anywhere in the 

program, but has no effect on 
program execution. This 
statement is used to insert 
comments into the BASIC 
program. 

20 PRINT 'INITIAL PRINCIPAL?' This PRINT statement specifies 

that INITIAL PRINCIPAL? be 
displayed. The single quotation 
marks around INITIAL 
PRINCIPAL? indicate that it is a 
character constant and that the 
entire character string is to be 
displayed. 


30 INPUT P The INPUT statement allows you 

to assign values from the 
keyboard to variables when your 
program is running. In this 
example, the variable P will 
receive the value you enter. The 
system displays a question mark 
in position 1 of the input line to 
indicate that keyboara input is 
expected. 

40 IF P=0 GOTO 100 The IF statement transfers 

control to a specified statement 
when a specified condition is 
met. In this statement, the 
program will terminate when you 
enter 0 for the principal. As long 
as you want to calculate savings, 
you can enter values for the 
principal, interest, and years. 
When you are finished, however, 
just enter 0 for principal and the 
program goes to statement 100 
(STOP). 
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Statement 


Meaning 


50 PRINT 'INTEREST RATE?, 
NUMBER OF YEARS?' 

60 INPUT R,N 

70 S=P*(1+R/100) + N 

80 PRINT 'ACCUMULATED 
SAVINGS AFTER',N;'YEARS 
IS' ;S 

90 GOTO 20 

100 STOP 


This statement displays the 
character string INTEREST 
RATE?, NUMBER OF YEARS? 

This statement specifies that the 
variables R and N will receive 
the values you enter for interest 
rate and number of years, 
respectively. Again, a question 
mark will be displayed to 
indicate that keyboard input is 
expected. Values you enter must 
be separated by a comma. 

This statement indicates that the 
value of S (savings) is equal to 
the value of P (principal) 
multiplied by 1 plus the value R 
(rate divided by 100 to convert 
to percent), raised to the power 
of N (number of years). 

This statement indicates that 
« 

the characters enclosed in 
single quotation marks are to be 
displayed, with the values for S 
and N inserted where shown. 

The value of N is the number of 
years you entered, and the value 
of S was calculated in statement 
70. 

The GOTO statement transfers 
control to a specified line 
number. In this statement, 
control is transferred to the 
statement at line number 20. 

This provides for a number of 
savings calculations to be made 
repetitively. 

The STOP statement indicates 
the end of execution of a BASIC 
program and terminates 
operations. 
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The numbers preceding the statements are called statement numbers. 
They are necessary so the system knows the proper sequence of your 
instructions. BASIC statement numbers in the 5110 can have values 
from 0001 through 9999. You can use consecutive numbers if you 
wish, but normally you should leave room for expansion between the 
statement numbers so that changes can be made more easily (see 
Making Changes to Your Program). When you enter statement 
numbers, you do not need to include the leading zeros. They will be 
added by the system when the statement is entered. 

After you have computed your last savings calculation, you can end 
the program operation by entering 0 for the requested principal and 
pressing EXECUTE. 


Automatic Statement Numbering 

Instead of manually entering the statement numbers in a BASIC 
program, you can instruct the system to provide statement numbers 
for you. You can do this with the AUTO command. Simply enter 
AUTO and press EXECUTE. Notice that the word AUTO is displayed 
above statement number 0010. From this point on, the system 
numbers your statements in increments of 10. Automatic numbering 
continues until you enter anything other than an AUTO-numbered 
BASIC statement (a command word, for example, LIST) in the input 
line. You can restore automatic numbering by entering AUTO NNNN, 
where NNNN is the statement number you want to begin with. 
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Sample Run 


Let's use the accumulated savings program to calculate the amount of 
savings generated by an investment of $1000 for 10 years at a rate of 
5%. 

Note the Comma to 
Separate the Variables 


You Enter-“ 

System Requests Input 

Initial Principal = $1000-;|. 0 

System Requests Input-I N 


Interest Rate = 5- 

The Answer- 

System Requests New- 
Principal 

You Enter to End 
Program 

System Indicates it is 
Ready to Proceed 



Number of Years = 10 


BER OF YEARS? 


A C f: U H I.) L, A T E D S A VIN 6 S A F T E R 1 0 
-INITIAL PRINCIPAL? 


,E E A D Y 


Y E A R S IS $ 16 2 8,8 9 4 6 2' 


We'll Call This 
$1628.89 



0 0;i. xxx xx 


Cursor Amount of Storage 

Position Available 


"\ 

% / 


38 


^ - 





USING TAPE OR DISKETTE STORAGE (YOUR LIBRARY) 


So far, you have used only the 5110 active work area. The active work 
area is the part of 5110 internal storage where calculations are 
performed; it is also the place where your programs are stored. When 
you set the 5110 POWER ON/OFF switch to OFF, or press RESTART, 
the data in the active work area is lost. However, before turning the 
power off or pressing RESTART, you can save the data in your active 
work area by writing the contents of your active work area on a tape 
cartridge or diskette. This media’ (tape or diskette) is like a library; you 
can write the contents of your active work area on the media (like 
placing a book on a library shelf) and, at a later time, put the 
information stored on the media back into the active work area (like 
taking the book off the library shelf to use it again). 

The library consists of one or more files (each file is like a book). Just 
as each book in a library has a name, each file that contains 
information on the media also can have a name (file identification). 

The IBM 5110 system commands are your means of controlling the 
active work area and storage media. Look at the labels above the 
alphameric keyboard. These are the system command keywords, 
which you can enter by simply pressing the CMD key with the 
appropriate key below the label. The system command keywords can 
also be entered character by character. There are some system 
commands that do not appear on the labels above the keyboard. All 
of the system commands are described in detail in the IBM 5110 
BASIC Reference Manual, SA21 -9308. 

In the following example, you will see how some of the system 
commands work. First, a tape cartridge or diskette must be inserted 
into your system. 

If you are using a tape cartridge: 

1. Be sure that the tape does not contain data required for further 
use. 

2. Check the tape cartridge security arrow in the corner of the 
cartridge. Figure 6 shows the arrow pointing to SAFE. When the 
arrow is in this position, the tape cannot be written on. To be 
able to write on the tape, use a paper clip or a coin to turn the 
arrow away from SAFE. 

3. Insert the tape cartridge. Figure 7 shows how a magnetic tape 
cartridge is inserted into the 5110. Press the cartridge in until it is 
firmly seated. 
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If you are using a diskette: 


1. Be sure the diskette is initialized and contains no data required 
for other uses. 

Diskette initialization is the process of providing identification 
labels and other system information on diskettes. The 
initialization routine is among the customer support functions 
provided on diskette from IBM. You can select the initialization 
routine using the LINK command, as shown in the IBM 5110 
Customer Support Functions Reference Manual, SA21-9311. 

Note: Diskettes supplied by IBM are initialized before they are 
sent to you. 

2. Remove the diskette from the protective envelope (Figure 8). 

3. Insert the diskette into diskette drive 1, as shown in Figure 9. 



as the diskette is 
inserted. 


Figure 9. Inserting a Diskette in Diskette Drive 1 
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Marking Your Media 

To prepare a tape or diskette with one file of any size, or several files 
of the same size in the same operation, you enter a MARK command. 
The MARK command can be entered anytime that READY is indicated 
on the display screen. It will not interfere with your programs. For our 
exercise, we are assuming that you are beginning a new media (no 
files have been marked). We will mark three files, each containing 
2048 or 2K character positions (K is equal to 1024). This exercise 
provides enough space on your media to contain three programs (one 
in each file) of approximately 35 statements each. Tape files for the 
5110 are numbered sequentially beginning with 1. Should you later 
decide to add more files, you can do so as long as you do not exceed 
the physical limits of your media. 

A tape contains space for approximately 200K of storage, minus the 
leading and trailing data for each data file, which equals 0.5K per file. 
Thus, a tape can contain approximately 132 IK files, 44 4K files, or 
any combination of file sizes up to 200K, including the required 0.5K 
per file. For information on diskette capacities, see the IBM 5110 
BASIC User's Guide, SA21-9307. 

Note: If you are not using a new tape cartridge, you must first ensure 
that your tape does not contain important data belonging to someone 
else. This is necessary because any existing data beyond the file you 
MARK is erased when you MARK the tape again. The system displays 
a warning message when you attempt a MARK command to a file that 
is already marked. To continue marking the file, press ATTN to stop 
the flashing screen, press the scroll up key once to move the display 
up one line, enter GO in positions 1 and 2, then press EXECUTE. To 
discontinue the MARK operation, enter GO END, then press EXECUTE. 

To mark the tape in our exercise, press the following keys: 



X X 

o 



.\ 


V P 


A 


Formatted 





Device. If you are using tape storage, 
specify E80. If you are using diskette 
storage, specify D80 (diskette drive 1). 
See the 5110 BASIC Reference Manual 
for details on device addresses. 


You have now marked the media for three files of 2K characters each, 
starting with file 1. The READY message is displayed when the media 
preparation is completed. We will now save the savings program on 
your media. If you want to mark additional files, remember that you 
should begin with file number 4. 
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In the following examples, if you are using diskette storage, specify 
device address D80 (diskette drive 1) instead of device address E80 
(built-in tape drive). 


SAVE Command 

The SAVINGS program can be saved on tape or diskette with the 
SAVE command. 

To save the sample program on tape, enter SAVE, then enter the 
number of the file you want to save it in, followed by E80, which is 
the device address of the Model 1 built-in tape unit. You will save the 
program in file 1, so enter SAVE 1,'SAVINGS',E80. The READY 
message will be displayed to tell you when the program is saved on 
tape. (You needn't be concerned with the numbers following the 
READY message.) While the program is being saved, you will notice 
the tape in the cartridge moving back and forth. This is normal, 
because the system is reading each segment of data after it is written. 
This ensures that the information is saved correctly. 

To save the program on diskette, you will need a file number, a file 
name, and a device address. Use file number 1 and file name 
SAVINGS. Enter SAVE 1,'SAVINGS',D80. To save the program on 
diskette, you must enter the device address of diskette drive 1, which 
is D80. To prove that the program has been saved, and that you can 
load it back into storage, the program stored in the system must first 
be erased. 

There are three ways to do this: 

• Enter LOADO and press EXECUTE. This clears machine storage and 
prepares it to accept input from the keyboard or programs loaded 
from tape. This is the recommended way to clear machine storage. 

• Press the RESTART switch. This restarts the machine to the same 
status as when the power was turned on. The internal diagnostics 
are performed again; thus, this method requires 10-15 seconds 
depending on the amount of storage in your machine. This method 
is recommended only when the PROCESS CHECK indicator comes 
on, or when you change from BASIC to APL or APL to BASIC. 

• Set the power switch to OFF, then set it back to ON. The same 
diagnostics are performed as during RESTART. 

To clear the machine, enter LOADO and press EXECUTE. To prove the 
program no longer exists in the machine, enter RUN and press 
EXECUTE. The system will respond with an error message to let you 
know this cannot be done because there is no program in storage. 
Press ATTN to continue. 
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In order to run the program again, it must first be loaded into storage 
from where it was stored on the tape or diskette. The LOAD 
command is used to place the program back into storage. 


o 


LOAD Command 

To load the SAVINGS program back into 5110 storage, enter LOAD, 
then enter the number and/or name of the file containing the program 
you want to load. In this example, type in 1 for file 1, then enter 
device address E80 for tape or D80 for diskette. Complete this 
sequence by pressing EXECUTE. The READY message tells you that 
the program is loaded and can be executed again. Run the program 
again by entering RUN, then pressing EXECUTE. 

Practice the SAVE and LOAD commands by changing the file number 
and file name when you again save the sample program on tape or 
diskette and load it back into the system. 


o 

o 


Listing a Directory of Programs 

When you save a program, it goes into your collection of programs 
and data on tape or diskette. You may find it necessary at times to 
list a directory of the programs you have in the files on tape or 
diskette. To do this, you use the UTIL command. The UTIL command 
instructs the system to list the following information about each file on 
tape or diskette: 

• File number 

• File identification 

• File type 

• Amount of storage allocated to the file 

• Amount of unused storage in the file 

• Number of defective areas (on tape only) 

• File protection status (on diskette only) 

• Data set starting location (on diskette only) 

• Function keys defined in the file 


< y 
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A UTIL command for a typical tape directory is shown below. 


c 

c 




UTIL DIR1,E80 


The resulting output for tape is shown in the following example: 


0 0 1 
0 0 2 
0 0 3 
0 0 4 
0 0 5 
0 0 6 


User Identification Allocated Storage (in K) 



' Defective Areas on Tape 
Unused Storage (in K) indicates more than 

nine defective areas) 


For a diskette file directory, a UTIL statement is: 

UTIL DIR1 ,D80 

The resulting output for diskette is shown in the following example: 


^^,User Identification 


Allocated Storage (in K) 


Data Set Starting Location 



Unused Storage (in K) File Protection Indicator 



For additional information about directory listings, see the IBM 5110 
BASIC Reference Manual, SA21-9308. 
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The following commands have been discussed in this chapter: 


AUTO - 
MARK - 

LOAD - 

SAVE - 


RD= - 
RUN - 
UTIL - 


Automatically provides BASIC statement numbers 

Prepares a tape cartridge or diskette for data or 
programs to be saved 

Loads the 5110 storage with data from tape, 
diskette, or from the keyboard 

Saves the BASIC program in 5110 storage on tape 
or diskette 

Specifies rounding of decimal numbers 
Executes a BASIC program 

Lists a directory of tape or diskette file information 



. 

V, P 





A REVIEW OF WHAT YOU'VE DONE 


After reading this far and doing the exercises described, you should be 
able to perform the following functions with your system: 

• Use as a calculator 

- Addition 

- Subtraction 

- Multiplication 

- Division 

- Exponentiation 

- Use of positive/negative operators 

- Use of parentheses in arithmetic hierarchy 

- Use of arithmetic constants 

• Correct keying errors 

- Replace a character 

- Delete a character 

- Insert a character 

- Make corrections in a line 

• Use variables 

- Assign values to variables 

- Display variable values 

• Enter short, simple programs 

- Change program lines 

- Run programs 

- Erase programs 

- Store programs on tape or diskette 

- Load programs from tape or diskette 

• Clear the machine storage 
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Chapter 4. How to Write a Program 


In the following pages, you are going to write more BASIC programs 
and learn to use some fundamental tools for writing programs. From 
this point on in the manual we will not show you the keys to press. 
We will just say to enter and then give you the data you should enter. 
Exercises for this chapter are provided in Chapter 13. 


The LET Statement 

A LET statement consists of four parts: a statement number, a 
variable to the left of an equal sign, an equal sign, and a quantity or a 
computation (called an expression) to the right of the equal sign. In 
BASIC programming, a LET statement means: 

1. Evaluate the expression on the right side of the equal sign, and 

2. Assign that value to the variable on the left side of the equal 
sign. 

In BASIC, you can have statements such as 
0030 LET X=X+1 

while you couldn't in math. In BASIC this statement means to take 
whatever value X now has, add 1 to it, and replace the old value of X 
with this new value. 

Incidently, you can omit the word LET from a LET statement in a 
program. These two statements 

0010 LET X=A+B 

0010 X=A+B 

mean exactly the same thing. Most of our examples will not show the 
word LET because it's not necessary to include it. 

The following program uses simple arithmetic. Try to look at the 
program as a step-by-step method for solving a particular problem. 

Problem 

Last month you went to the dentist and had an examination and 
X-rays. That cost $25. You had two teeth filled. That cost $24. Your 
insurance will pay for 75% of everything over $15. How much do you 
have to pay, and how much does the insurance pay? 
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What to Do 


1. Find the total dentist bill (call it D). 

2. Subtract $15 to find the amount eligible for insurance (call it E). 

3. Take 75% of the result (call it I). That's how much the insurance 
pays. 

4. Subtract the insurance money from the total bill D to find out 
how much money you owe (call this M). 

5. Display how much you have to pay and how much the insurance 
will pay (M and I). 

The following BASIC statements, which you will enter later, can be 
used to solve this problem: 

0010 D=25+24 
0020 E=D-15 
0030 l=.75*E 
0040 M=D-I 
0050 PRINT M,l 
0060 STOP 

Notice the PRINT statement. Because you want to know both your 
payment and the insurance payment, you can specify both M and I in 
the same statement. Any time you want to display the value of more 
than one variable, you can use a single PRINT statement if you list the 
variables and separate them with commas or semicolons. 


USING REMARKS 

You can make your programs easier to work with, and easier for other 
people to use, if you include descriptions of what the statements do in 
the program. These descriptions are known as remark statements. 

You write remarks as if they were statements in the BASIC program, 
but they don't serve any function in the execution of the program. 
They are solely for information. You can insert them anywhere in a 
program. 



To include a remark in a program, you write a BASIC statement called 
REM. It has a line number like any other BASIC statement. Following 
the line number, you enter the letters REM followed by any remark 
you want. Examples of REM statements are: 

40 REM THIS PROGRAM COMPUTES BATTING AVERAGES 

70 REM AT THIS POINT, PRINT OUT THE RESULTS 

10 REM DENTBILL 

You'll see other examples of REM statements as you go through this 
manual. 

You should now be ready to enter the program from the system 
keyboard. To enter and execute the program, follow the instructions 
below. Remember to press EXECUTE after each line is entered. 

Instructions Display Screen Shows 

Clear storage . 

L U H .U U 

Enter the statements on in pfh rjFWTR'H i 


0 0 '•!• 0 I — . 7 ’5 ft 17 
0 050 M••=!!«I 
0060 PRINT M »1 
0 0 7 0 S T 0 P 

Run the program Ri.jN 


Remember that the idea in this program, and any other programs you 
write, is to break down what you want to do into logical sequential 
steps. It may help to use this tactic: Ask yourself what is the very 
first thing I have to do? What is the next? And so on. You can make 
a list of what you have to do and then convert each item in the list to 
a BASIC statement. Thus, you will always have a sequence of 
statements that will solve the problem in an orderly step-by-step 
fashion. 

The dentbill program is not a typical program because it works on only 
one set of data that is a part of the program. Most programs are 
written to use many sets of data and use data that is not a direct part 
of the program. Later program examples will explain this in detail. 
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LISTING PROGRAM CONTENTS 


O 


Because the dentbill program is currently in the system work area, we 
can now list the statements of the program on the display screen with 
the LIST system command. Enter LIST, then press EXECUTE. The 
statements of the dentbill program now appear on the display screen. 

/ 

The LIST command causes the first 14 lines of the program to be ^ 

displayed. You can then use the scroll up key to view additional lines 
of the program. 

It isn't necessary to list the entire program each time you want to see 
a particular part of it. You can list any 14-line portion of the program 

by entering the last line number you want displayed after the V .J? 

command keyword LIST. For example, LIST 30 would display 
statement numbers 10, 20, and 30 of the dentbill program, with 
statement 30 on line 1. 

BRANCHES 

The system normally executes programs line by line according to the 
line numbers of the statements. However, you can vary this sequential 
order and transfer control to a line number other than the next 
sequential one. This is called branching. Two of the statements you 
can use for branching are the GOTO and IF statements. 

\ t 

The GOTO Statement 

This statement tells the system to go to a specific line number. A 
GOTO statement at line 20 of a program that tells the system to go to 
line number 60 would look like this: 

0020 GOTO 60 


'■'V../ 


\ >■ 


o 
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The IF Statement 


An IF statement can test whether a variable is equal to, greater than, 
or less than another variable or constant of the same data type. The 
IF statement includes a GOTO statement. The IF statement operates 
this way: 

1. The IF statement tests the condition you define. 

2. If the answer to the test is yes, the condition is true; the system 
will go to the line number that you entered in the IF statement. 

3. If the answer is no, the system ignores the rest of the IF 
statement and goes directly to the next sequential line in the 
program. 

Here's an example of an IF statement: 

0040 IF X=0 GOTO 80 

In this statement, if X is 0, the system goes to line 80. If X is not 0, it 
goes on to the next line in the program. 

The six tests you can make with the IF statement are: 

• Equal to, = 

• Not equal to, * or < > 

• Greater than, > 

• Less than, < 

• Greater than or equal to, > or > = 

• Less than or equal to, < or < = 

The system stores < > as *, >= as >, and < = as <; thus, even though 
you enter < > the system will display * when you list the statements. 
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Some examples of IF statements are: 

This IF Statement: Means: 

0130 IF X>10 GOTO 40 If the value of X is greater than 

10, go to line 40. 

0190 IF Y<21 GOTO 10 If the value of Y is less than 21, 

go to line 10. 

0010 IF A1 >5 GOTO 60 If the value of A1 is greater than 

or equal to 5, go to line 60. 

0030 IF A2*X GOTO 75 If the value of A2 is not equal to 

the value of X, go to line 75. 

The following program examples describe more about how to break 
down a problem into the BASIC statements required to use your 
system to solve a problem. Again, as opposed to most typical 
programs, the sample programs will use data internal to the programs. 

After you've seen how data within a program can be manipulated, 
you'll be shown how to supply program data from outside the 
program. 

Although it may not be necessary in all instances, it is a good idea to 
enter a LOADO command before entering any program statements. 

This ensures that the system work area is clear. Remember also that 
you can use the AUTO command to provide automatic statement 
numbering. 

Program Example 1 

You are in charge of billing people for orders of dresses. There are 
two styles, one at $108 a dozen and one at $136 a dozen. On orders 
of $500 or over, there is a 10% discount. For the account you are 
now working on, there are two dozen orders for the first dress and 
three dozen orders for the second dress. 

The program to determine the bill is: 

OOJ.O REM PROGRAM TO FIGURE OUT DISCOUNTS ON ORDERS 
0020 A-2 
0030 B-3 

0 0 -!• 0 TA *:!. 0 8 ■ B * 13 6 

0 0 3 0 IF T<30 0 GOTO 0 07 0 

0 060 D ;:: . 1 *T 

0070 PRINT i•D.T-D 

0 0 8 0 S T 0 P 
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This program solves the problem in the following steps: 

1. It finds the total order (line 40). 

2. It tests to see if the total is less than $500 (line 50). If it is, the 
program goes to line 70 and displays the total. The discount D 
will be 0 in this case, and the totals will be displayed. 

3. For orders of $500 or over, the program computes the 10% 
discount on line 60. Then it continues to line 70 to display the 
total. 

Note : D will be 0 when the order is less than $500 because each time 
the system starts to execute a program after a RUN command, it 
automatically sets the value of all numeric variables to 0. Character 
variables are set to blanks. This is called initialization. The values 
remain zeros or blanks until a statement in the program assigns a 
different value. This means that you never have any problem with 
values being left over from the last time you ran the program. 

Upon execution of this program, the display screen shows: 


62 , M- 


Thus, the total order is $624, the allowable discount is $62.40, and the 
amount to be billed is $561.60. The cents columns in the dollar figures 
do not print because the system has no way of determining how many 
significant digits you want printed. You will be shown how to have 
numbers printed in the exact format you want in a later chapter. 
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Program Example 2 

You are moving. You get estimates from two movers and want to 
know which mover will be cheaper. Mover A charges $40 an hour and 
estimates that the work will take 5 hours. Mover B charges $32.50 an 
hour and estimates that the work will take 8 hours. If both movers 
cost the same, you'll hire Mover B because he has a better reputation. 
Here is the program: 


auto 



o 0 1 0 

A :::: 0 4 0 


n n ? n 

B""8*32.5 


n n t n 

REM TEST ' 

fO SEE WHO IS C 

0 0 4 0 

,i. P A ■■ B 01.) 

"n n i no 

0 0 5 0 

REM GO HE! 

RE IF B CHEAPER 

0 0 6 0 

PRINT 1 B ( 

:HEAPER OR EQUA 

0 070 

PRINT B 

c r n p 


0 0 9 0 

REM GO HE 

RE IF A CHEAPER 

n i n fi 

PRINT ‘A i 

• HE A PER ‘ 

0 11 0 

PRINT A 


0 12 0 

STO P 



Here is how this program works: 

1. In lines 10 and 20, it figures the total cost for each mover. 

2. In line 40, it tests to determine which one of two paths to take. 
Either the program will go to line 100, or it will continue with 
lines 50, 60, 70, and 80. This test determines which mover is 
cheaper. 

3. If Mover A is cheaper, the program goes to line 100. Line 100 
lets you know that Mover A has the contract and displays the 
total price. Notice line 100. It is a PRINT statement, but it has 
single quotation marks around the words A CHEAPER. You can 
write a PRINT statement that displays the words entered if you 
enclose the words in single quotation marks. If line 100 is 
executed, the words A CHEAPER will be displayed. Line 110 has 
no quotation marks. It is a PRINT statement for variable A, and 
will display the value of variable A. After the PRINT statements, 
the program ends at line 120. 

4. If Mover B is cheaper, the program continues with line 50. Line 
60 is a PRINT statement containing the words B CHEAPER OR 
EQUAL in single quotation marks. If line 60 is executed, the 
words B CHEAPER OR EQUAL will be displayed. Line 70 will 
display the value of variable B. After the PRINT statements, the 
program comes to line 80, a STOP statement, which ends the 
program. 



\ / 


py 
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After you run the program, the display screen shows: 



Loops 

Here is a new problem. You are a rug salesperson. All your rugs 
come in rolls 12 feet wide. Your customers buy rugs in varying 
lengths depending on how long their rooms are. You want to make a 
chart of how many square yards of rug are required for rooms of 
different lengths. The most popular room sizes start at 9 feet long (a 
12 by 9 foot rug) and increase a foot at a time (12 by 10, 12 by 11, 
and so on) until they reach 12 by 20. 

You will write a program that computes the number of yards in a 12 
by 9 rug, then a 12 by 10 rug, on up to a 12 by 20 rug. 

To compute the number of square yards in each of the 12 different 
sized rugs, you have to find the number of square feet and divide by 
9. The main computation step is: 

0020 LET Y=(12*X)/9 

where Y is the number of square yards, and X is the length of each 
different rug. To display the value of Y, you would use this statement: 

0030 PRINT Y 

The value of X has to increase by 1, from 9 to 10 on up to 20. You 
could write a program like this: 

0010 X=9 
0020 Y=(12*X)/9 
0030 PRINT Y 
0040 X=10 
0050 Y=(12*X)/9 
0060 PRINT Y 


and so on until X=20 
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This program uses a LET statement to increase the value of X. 
However, there is a better way. You can make a loop. A loop is just 
what it sounds like. It is a series of program steps that are repeated. 
It looks like this: 



Two things have to happen to this loop to make it work. It has to 
have some way to change the values it uses before it loops up to the 
top and starts again. And it has to have some way to know when to 
stop, or the program will run indefinitely. 



/" X 

V > 


\ . / 


v.... / 


First Loop Method 

So far you have these program statements: 

0020 Y=(12*X)/9 
0030 PRINT Y 


You want to start with X equal to 9, so put a LET statement ahead of 
these two statements assigning 9 as the first value of X. It will also 
help if you print the value of X with the computed value of Y, so the 
table will be more self-explanatory. Now, the program looks like this: 


0010 X=9 
0020 Y=(12*X)/9 
0030 PRINT X,Y 


To avoid specifying X=10, X=11, and so on, write a general statement 
that will keep increasing the value of X by 1. That statement is: 

0040 X=X+1 




V j 


S' \ 
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Remember that while this statement looks peculiar in a mathematical 
sense, it's perfectly valid in BASIC. It says: Assign the value of X to 
be equal to the old value of X plus 1. 

By adding statement 40 to the program, you've changed the value of X 
and completed the steps required to make the loop operate once. 

Now you have to add a GOTO statement to go back to the beginning 
of the loop: 

0050 GOTO 20 

You go to line 20 because you only have to go back to the 
computation step, not to line 10 where you originally set X equal to 9. 

After the system goes to line 20, it computes and displays the yardage 
again, but this time for X equal to 10. It arrives at line 40 again and 
changes X to 11; then it goes back to line 20 to compute the next 
yardage. This process continues, increasing the value of X by 1 after 
each loop. 


Ending a Loop 

One thing is missing from an otherwise perfect loop. It never ends. 
Not at X=20, not at X=30, because X just keeps increasing. If you are 
sitting in front of your system while this program is running, you can 
stop this loop whenever you want to by pressing ATTN. But this is 
obviously not an ideal method. You can make the loop stop 
automatically if you build in a test with an IF statement to see when 
you've processed enough values of X. In this program, you want the 
loop to stop when the value of X passes 20. Consider this IF 
statement: 

0050 IF X>20 GOTO 70 
Line 70 will be a STOP statement. 

The IF test goes before the GOTO statement that branches to line 20. 
If you put it after the GOTO statement, it will never be executed. This 
is the finished program: 

0010 X=9 
0020 Y=(12*X)/9 
0030 PRINT X,Y 
0040 X=X+1 

0050 IF X>20 GOTO 0070 
0060 GOTO 0020 
0070 STOP 
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Looking at this program, you should be able to see that lines 50 and 
60 can be combined to make a more efficient program that looks like 
this: 

0010 X=9 
0020 Y=(12*X)/9 
0030 PRINT X,Y 
0040 X=X+1 

0050 IF X<20 GOTO 0020 
0060 STOP 


O 

o 


Now, enter and run the program. After you run the program, the 
display screen shows: 


14.6 6 6 6 6 i ? 
16 



You can press HOLD to stop the upward movement of the data. To 
continue, press HOLD a second time. 

There is another way to make a loop in a program. At the beginning 
of the loop, instead of setting X equal to its first value, you enter the 
entire range of values that X will use. In the rug example, you would 
write 

0010 FOR X=9 TO 20 

Then you write the statements that solve the problem and print the 
results: 

0020 Y=(12*X)/9 
0030 PRINT X,Y 



i / 


/( • 

V / 


4f X 
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Then you tell the system to go to the next value of X and repeat the 
loop: 

0040 NEXT X 

FOR and NEXT statements always go in pairs: FOR at the beginning 
of the loop and NEXT at the end. The system automatically repeats 
the loop as many times as you told it to in the FOR statement. When 
it finishes, it goes on to the statement following the NEXT statement. 

Using the FOR and NEXT statements, the rug program looks like this: 

0010 FOR X=9 TO 20 
0020 Y=(12*X)/9 
0030 PRINT X,Y 
0040 NEXT X 
0050 STOP 

In a FOR statement, you can name any arithmetic variable to be the 
control variable, and you can make its range of values anything you 
want. The control variable is to the left of the equal sign. The range 
(to the right of the equal sign) doesn't have to be given in numbers. 
You can use other variables for the range, for example: 

0060 FOR J=A TO B 


0120 NEXT J 


Steps 

When you write a FOR statement, the system increases the value in 
steps of 1 (for example, 1 to 2 to 3, or 18 to 19 to 20 to 21). 

However, sometimes you may want to use just even numbers, or odd 
numbers, or every tenth number. If your loop requires a value other 
than steps of 1, you can specify the step value whether you are using 
FOR and NEXT statements or a LET statement to control the loop. 

If you write a loop that uses a LET statement, you can write these LET 
statements: 

0100 X=X+2 To change X in steps of 2 

0050 X=X+10 To change X in steps of 10 
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If you're using FOR and NEXT statements for the loop, you add the 
word STEP and the size of the step to the FOR statement. For 
example: 

0010 FOR X=1 TO 25 STEP 2 
gives you odd values of X from 1 to 25 (1, 3, 5, 7 . . .). 

0030 FOR D=10 TO 100 STEP 10 
gives you 10, 20, 30, up to 100. 

For even values of D from 1 to 20, you would write: 

0020 FOR D=2 TO 20 STEP 2 

Notice that D is set to 2 because the first even number you want is 2. 

If you omit the word STEP and the value from the FOR statement, you 
automatically get steps of 1. You can also include fractional steps, for 
example: 

0030 FOR 1=1 TO 3 STEP .1 


o 

o 


V / 


Loops Within Loops 

4 p 

Here's a problem in which two values change: Find the annual amount 
of interest (A) at the interest rates (I) of 5%, 6%, 7%, 8%, 9%, and 
10% on principals (P) ranging from $100 to $1000 in steps of $100. 

This problem can be solved by a program that uses two loops-one for 
changing the interest and one for changing the principal. Do the 
interest loop first: 


0030 FOR 1=5 TO 10 



0040 A=(I/100)*P 

This computes 

This creates a 


► and displays A, 

• loop for 1 to vary 

0050 PRINT P, 1, A 

P, and 1. 

from 5% to 10%. 

0060 NEXT 1 




Now all that's left is to define P, because the program doesn't know 
where to find the values for P. The P loop has no computations of its 
own; it only defines the values for P: 

0020 FOR P=100 TO 1000 STEP 100 


4 Y 


4 Y 


0070 NEXT P 


o 




The P loop goes around the I loop: 


P 

Loop 


Loop 


- 0 0 2 0 

FOR F 5 

- 0 030 

FOR 1 = 

0 0 4- 0 

A=( 1/1 

0 0 5 0 

PRINT 

— o o 6 n 

NEXT I 

— 0 0 7 0 

NEXT P 

0 0 8 0 

STOP 


i 0 T 0 1 0 0 0 
TO 10 


STEP 100 


P t I .■ A 


You must put one loop entirely inside the other so that the system will 
stay in one loop and finish it completely (compute all the values for I 
for a single value of P) before it goes on to the next value of P. In this 
program, the system starts with P equal to $100, then it comes to the 
I loop and sets I equal to 5%. It goes on to compute the interest on 
$100 at 5%, 6%, 7%, 8%, 9%, and 10% because it keeps repeating 
the I loop until I equals 10. When it finishes all the different interests 
on $100, it goes to line 70, which is the bottom of the P loop. Here, 
control loops back to line 20, which increases P to $200, and starts on 
the I loop again, this time with P equal to $200 and with I again 
ranging from 5% to 10%. The program continues in these loops until 
all of the values of P have been used. Then you have all the amounts 
of interest you wanted. 

To run the program: 


When the display screen shows 
READY, enter the statements: 


LOAD 

0 


AUTO 



0 010 

REM INTEREST 

0020 

FOR P« 

= 10 0 TO .1.0 00 

0 030 

FOR J> 

=5 TO 10 

004 0 

A«(I/1 

00>*P 

0 050 

PRINT 

P i I # A 

0 060 

NEXT I 


0 070 

NEXT F 


0 080 

STOP 
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Run the program 


RUN 


o 


To see a portion of the 
program results, press 
HOLD. To continue 
execution, press HOLD 
again. 


The display screen shows 
a portion of the output 
when you pressed HOLD. 
For example: 


8 o o :l. 0 

9 0 0 5 

9 0 0 6 

9 0 0 7 

9 0 0 8 

9 0 0 9 

9 0 0 1 0 

:l. 0 0 0 5 

1 o 0 0 6 

1 0 0 0 7 

10 0 0 8 

10 0 0 9 

10 0 0 1 0 


Loops within loops must always be nested like this: 

FOR X. . . 

-- FOR Y . .. 

-* NEXTY 

NEXT X 

so that the inner loop is fully completed each time before the outside 
one is begun again. Two loops must never overlap like this: 

-- FOR X .. . 

-- FOR Y. . . 

— ~NEXTX 


Outside 

Inside 

Loop 

Loop 




4* 

? 54 - 

6 J 
72 
8 : 1 . 

9 0 
5 0 
60 

7 0 
80 
9 0 

:i. 0 0 





4 • 




NEXT Y 


o 





Remember, one loop must always be completely enclosed by the 
other. 

Here is another example of loops. This is a program to find X 2 , X 3 , X 4 , 
and X 5 with X equal to 1 to 10. 


The outside 
loop changes 
X from 1 to 10. 


The inside loop 
changes V from 
2 to 5. 


0010 REM POWERS 
0 020 FOR X =:: 1 TO 10 
0 030 FOR Y= :: 2 TO 3 
0 0 M 0 PRINT X.. X t Y 
0050 NEXT Y 
0060 NEXT X 
0070 STOP 


Notice that the inside Y loop is fully contained in the outside X loop. 
Run the program as shown: 


When the display screen shows 
READY, enter the statements: 


0010 REM POWERS 
0020 FOR X~1 TO 10 
0 030 FOR Y="2 TO 5 
0 00 0 PRINT X .■ X t Y 
0050 NEXT Y 
0060 NEXT X 
0070 STOP 


Run the program RUN 


The display screen shows 
(use the HOLD key to display 
any 15-line portion of the 


1680 

6M- 

displayed results): 

8 


o 

8 

512 
M0 96 


8 

3276 


O 

81 

72.9 


o 

6561 


5 9 0 M 9 


10 

i n o 

10 

100 0 

10 

i n o 0 0 

10 

1 n o o n o 
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Chapter 5. Other Ways to Put Values into Programs 


In all the programs we've written, we've tried to: 

• Write a program to solve the problem using general expressions. 

• Supply specific values for the expressions and run the program with 
the specific values. 

The advantage of programming in this way is that the bulk of the 
program doesn't change every time you want to solve the same 
problem with different numbers. You only need to change the 
numbers, not the programmed expression, when you want to run the 
program using different numbers. 

We are now going to look at other ways to supply specific numbers 
for programs. Exercises for this chapter are provided in Chapter 13. 


THE READ, DATA, AND RESTORE STATEMENTS 

To assign 10 values, say the numbers 1 through 10, to 10 variables, 
you could use 10 LET statements: 

0010 LET A=1 
0020 LET B=2 
0030 LET C=3 


0100 LET J=10 

Using 10 LET statements can be tedious. Another way to enter these 
numbers is with one DATA statement: 

0200 DATA 1,2,3,4,5,6,7,8,9,10 

The DATA statement causes values to be placed in an internal data 
table. You can use one or several DATA statements to do this. Values 
in DATA statements are put into the data table sequentially, in the 
order in which they are entered. The values must be separated by 
commas. The following set of statements would have the same effect 
as the single preceding DATA statement: 


0200 DATA 1,2,3 
0210 DATA 4,5,6 
0220 DATA 7,8,9,10 
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Once the values are in the table, you use the READ statement to 
assign them to variables. Here's an example: 

0200 DATA 1,2,3,4,5,6,7,8,9,10 
0210 READ A,B,C,D,E,F,G,H,I,J 

The READ statement locates the values in the data table and assigns 
them (in order) to the variables-the value 1 to the variable A, 2 to B, 3 
to C, and so on. 

You don't have to assign all of the values in the data table at one time. 
For example: 

0200 DATA 1,2,3,4,5,6,7,8,9,10 
0210 READ A,B,C 

will cause the first three values in the table to be assigned to A, B, 
and C, respectively. Another READ statement will take up where the 
last one left off. Thus: 

0420 READ D,E,F,G 

will assign the values 4, 5, 6, and 7 to D, E, F, and G, respectively. 

You must be careful, though, not to try to read more values than the 
table contains. For example, still another READ statement: 

0440 READ H,I,J,K 

would be requesting values for four variables when only three 
numbers (8, 9, and 10) are left in the table. This will cause an error. 

If you want, you can use the values in the data table more than once. 
At any point in your program, you can instruct the system to assign 
from the beginning of the table again, even if you haven't read all the 
values in the table. To go back to the beginning of the table, use the 
RESTORE statement: 

0100 RESTORE 
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Let's assume that you want to assign the values 1, 2, and 3 to three 
variables A, B, and C, in that order. Then later in the program you 
want to assign the same values to D, E, and F. These statements will 
do just that: 

0030 DATA 1,2,3,4,5,6 


0060 READ A,B,C 


0100 RESTORE READ FROM START OF DATA TABLE 
0110 READ D,E,F 

Notice that you can include a comment in the RESTORE statement. 
The words READ FROM START OF DATA TABLE have no effect on 
what your program is doing; they merely serve as a reminder to you, 
when you look at the program, of what the RESTORE statement is 
doing. Your comment can say anything you want it to say, as long as 
it fits on one line with the RESTORE statement. 

It's important to remember, when using READ and DATA statements, 
that no matter how many DATA statements you include in your 
program, only one data table is created before any READ statement is 
executed. The table is created from all the DATA statements in your 
program, regardless of where they appear-at the beginning, at the 
end, or scattered throughout. Each of the following three sets of 
statements has the same effect: 

0200 DATA 1,2,3 
0210 DATA 4,5,6 
0220 READ H,I,J,K,L,M 

0200 READ H,I,J,K,L,M 
0210 DATA 1,2,3 
0220 DATA 4,5,6 

0200 DATA 1,2,3 
0210 READ H,I,J,K,L,M 
0220 DATA 4,5,6 


THE INPUT STATEMENT 

Both the assignment statement (LET) and the DATA statement use 
constants-unchanging data items that are part of your program-to 
assign values to variables. You have to know, at the time you're 
writing your program, what values you want to assign. 
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The INPUT statement allows a little more flexibility. This statement 
names the variables that are to receive values, but allows you to wait 
until you are running your program to actually supply the values. For 
example: 

0050 INPUT X,Y,Z 

means that you will supply values from the keyboard for X, Y, and Z 
when your program is run. You'll know when it's time to supply the 
values because a flashing question mark will be displayed. When you 
see this, you should enter your values, one for each variable in the 
INPUT statement-in this case, three. The values are entered all on one 
line, separated by commas. Thus, when you've entered the 
information, the display screen shows: 

185# 205.. 191 

By entering these numbers, you've assigned 185 to X, 205 to Y, and 
191 to Z. 

You have to be certain, when entering your values, to enter exactly the 
same number of values as there are variables in the INPUT statement 
in your program. The question mark will keep flashing until the correct 
number of values is entered. If you enter too many values, the excess 
values are ignored. After the last value is entered, press EXECUTE to 
continue program execution. 

Prompting Your Input 

Because a lot of time can elapse between the time you write a 
program and the time you run it, you may have difficulty remembering 
exactly how many values you have to enter. This is especially true 
when your program contains more than one INPUT statement. Then 
you have to keep track of which one comes first. 

You can have your program keep track for you by reminding you what 
has to be entered. All you have to do is include a PRINT statement 
immediately before the INPUT statement in your program. For 
example, if your program averages bowling scores, you could use 
these statements: 

0045 PRINT 'ENTER THREE BOWLING SCORES' 

0050 INPUT X,Y,Z 
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Then, when the program is run, instead of just a question mark 
appearing when it's time to enter your values, these lines will be 
displayed: 


ENTER THREE BOWLING SCORES 


When you've entered your values, the display screen will show: 


ENTER THREE BOWLING SCORES 
185,205;199 


You can write any reminder message that you want in the PRINT 
statement, as long as you enclose it in single quotation marks. 

You also have to remember that the PRINT statement has to fit 
entirely on one line. If your message is so long that it doesn't fit, you 
might consider using several consecutive PRINT statements: 

0040 PRINT 'ENTER 12 AVERAGE TEMPERATURES' 

0050 PRINT 'FOR JANUARY TO DECEMBER' 

0060 INPUT M,N,0,P,Q,R,S,T,U,V,W,X 

ENTERING CHARACTER VARIABLES INTO PROGRAMS 

You've been entering numeric variables into programs in this section, 
but any of the methods you've used will let you supply values for 
character variables as well. You have already seen how to do this with 
a LET statement. For INPUT and READ statements, you just use valid 
character variables where we've been using numeric variables. Note 
that you need not enclose character data in single quotation marks 
when you enter it for a DATA statement or in response to the flashing 
question mark for an INPUT statement, unless the data must include a 
quotation mark, a comma, or leading blanks. For example, if you want 
a program to keep track of a person's height and weight, you can 
enter the person's name, height, and weight with these READ and 
DATA statements: 

0010 READ N$,H,W 

0020 DATA TOM JONES,6.1,184 
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You could also use an INPUT statement: 


0010 INPUT N$,H,W 

and then respond to the flashing question mark like this: 

TOM JONES,6.1,184 

A REVIEW OF WHAT YOU'VE DONE 

All of the following methods of assigning values to variables are 
useful: 

• LET statements 

• READ, DATA, and RESTORE statements 

• INPUT statements with data supplied from the keyboard 

You can use a combination of these methods if you have a program 
where some values don't change, some change occasionally, and 
others change often. 



Chapter 6. Making Changes to Your Programs 


It is very important that you be able to make changes to your 
programs. You may have to change a program to supply values for 
variables, to make corrections, to add lines, or to remove lines. There 
are several ways you can change a program, either as you write it or 
after you write it. 


CORRECTING KEYING ERRORS 

If you make mistakes while entering your program statements or 

commands, you already know how to fix them. As you catch the 

errors, you can: 

• Use the backspace or forward space key to position the cursor at 
the incorrect character, then simply enter the correct character. 

• Use the insert or delete function to insert or delete characters. 

• Use the scroll up and scroll down keys to position a line to be 
corrected. 

• Press ATTN to delete all characters starting with and to the right of 
the cursor position. 


INSERTING NEW LINES 

The following program, called phone, computes charges for local 
telephone calls. The rate for local calls in this example is 10 cents for 
the first three minutes or less, and 2 cents for each additional minute 
or fraction of a minute. We'll write a general program, but we'll 
purposely omit the actual length of any call. These are the variables 
we'll use: 

T Total length of the call in whole minutes 
T1 Amount of time over 3 minutes 
C Charge for the call 
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Enter this program. After we add a statement to assign a value to T, 
you'll be able to run the program. 

To assign a value to T, you can use READ and DATA statements: 

READ T 

DATA 8 (for an 8 minute call) 

You can insert these statements before line 10. 

Now enter: /' \ 

X > y 

5 READ T 

Press EXECUTE and enter: 

6 DATA 8 

and press EXECUTE again. 

To see what has been done with these statements, enter the LIST 
command. 


The program is: 


0 0 1 0 IF I > 3 G 0 T 0 0 0 4 0 

0020 PRINT ‘CALL LESS THAN OR EQUAL 3 MIN, 10 CENT CHARGE 

0 030 GOTO 0;|.0 0 

0 04-0 Tl = T-3 

0 05 0 O , . 1 . + , 0 2*T1 

0060 PRINT 'LENGTH OF CALL’ 

0070 PRINT T 

0080 PRINT 'CHARGE FOR CALL’ 

0090 PRINT C 
0:1.0 0 STOP 


4 \ 

\../ 


4T 

X ./ 
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The display screen shows: 


0005 READ T 

0006 DATA 8 

0010 IF T>3 GOTO 0 04 0 

0020 PRINT 'CALL LESS THAN OR 

0030 GOTO 0100 

0 040 T1 -=“(-• 3 

0 050 C= . 1+ . 02*T.l 

0 0 6 0 P RIN T ' L E N G T H O F C A L L ‘ 

0070 PRINT T 

0 0 8 0 P R1N T ' C H A R G E F O R C A L L ' 
0090 PRINT C 
01 0 0 S T O P 


EQUAL 


MIN, 10 CENT 


The system has taken the two lines and inserted them in the program 
(as lines 5 and 6) before line 10. By entering a line number and any 
valid BASIC statement, you have given an instruction. This instruction 
starts with a line number, and tells the system you are adding a line 
and where to add it. 

Now you can see why it is convenient to have the line numbers 
increase by 10's; it gives you the chance to insert up to nine new lines 
between every two original lines. 

You can now run the phone program by entering the RUN command. 


REPLACING ONE LINE WITH ANOTHER 

Let's try a different value for T in the phone program. This time T is 
21 minutes. You'll have to change line 6, the DATA statement, to use 
this new value. 

Enter the following statement, then press EXECUTE: 

6 DATA 21 


CHARGE‘ 


Making Changes to Your Programs 75 







If you list the program now, the display screen shows: 


o 


0005 READ T 

0006 DATA 21 

0 010 IF T>3 GOTO 0 0M0 

0020 PRINT 'CALL LESS THAN OR EQUAL 3 MIfL 10 CENT CHARGE* 

0030 GOTO 0100 

00M0 Tl=T-3 

0050 C=.1+.02*T1 

0060 PRINT 'LENGTH OF CALL’ 

0070 PRINT T 

0080 PRINT 'CHARGE FOR CALL' 

0090 PRINT C 
0100 STOP 



\ ./ 


See what happened? The system replaced the old line 6 with the new 
line 6. 

When you want to replace a line, simply enter the same line number 
as the line you want to replace and enter the new line. The system 
replaces the old line in storage with the new one after you press 
EXECUTE. 

Remember that you can use the SAVE command if you want to save 

the program on tape or diskette. ^ x 

% . / 

REMOVING A LINE 

In the phone program, we will now include an INPUT statement so we 
can run the program with many changing values for T. We can replace 
the READ statement with an INPUT statement, but the DATA 
statement must be deleted. To do this, first list the program. Now 
enter the number of the line you want to delete, then enter DEL and 
press EXECUTE. To delete line 6, enter 6 DEL, then press EXECUTE. 

Line 5 can be replaced by the following procedure: enter 5 INPUT T 
and press EXECUTE. List the program again, and the display screen 
shows: 

0005 INPUT T 

0010 IF T > 3 GOTO 0 0M0 
0020 PRINT 'CALL LESS THAN OR EQUAL 
0030 GOTO 0100 
0 0 M 0 T1 =- T 3 
0050 O.1+,Q2*Ti 
0 0 6 0 P RIN T 'E N G I" H 0 F C A I... 1.., ’ 

0070 PRINT T 

0080 PRINT 'CHARGE FOR CALL' 

0090 PRINT C 

0100 STOP 
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The system has replaced line 5 and deleted line 6. 

When you want to delete a line, simply enter the statement number, 
then enter DEL, and press EXECUTE. A new listing of the program will 
show the line deleted. You can also use the DEL function to delete 
several lines. For example, you could delete lines 0070 through 0090 
by entering: 

0070 DEL 0090 





RENUMBERING STATEMENT LINES 

In the phone program, the statement numbers are not sequential by 
10's. If you want the numbers to start with 0010 and increase by 10, 
you can simply use the RENUM command. This command will assign 
the number 0010 to the INPUT T statement and number the remaining 
statements from 0020 to 0110. 

In addition, the GOTO statements (original lines 10 and 30) will be 
altered to transfer execution to the appropriate renumbered statement. 
To see the result of a renumber operation, list the phone program, 
then enter RENUM and press EXECUTE. After you list the program 
again, the display screen shows: 


0 0 1 0 

READ T 



n n 2 o 

IF T>3 

G 

□ T 0 0 

0 030 

PRINT 

’ f 

ALL L 

0 04 0 

G o T 0 0 

11 

0 

0 o 3 0 

T1 s:: T -3 



0 0 60 

C -• . 1 + , 

0 2 

*T 1 

0 0 7 0 

PRINT 

* L 

ENGTH 

n n 8 n 

PRINT 

T 


0 o ? 0 

PRINT 

' (.' 

MARGE 

n i o o 

PRINT 

C 


0 11 0 

STOP 



o :i. 2 o 

P PINT 

A 



H1N, 10 CENT 




CHARGE 1 
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Chapter 7. More About the PRINT Statement 


We've seen the PRINT statement used to display the values of 
variables and to display comments exactly as entered in the statement. 
We've also seen that to display a comment exactly as you entered it, 
you must enclose the comment in single quotation marks. You should 
remember, then, that if you include this line in a program: 

0050 PRINT 'X' 

when line 50 is executed, the display screen will show: 

X 

and not the value of X, which would be displayed if line 50 were 
0050 PRINT X 

Within a single PRINT statement, you can mix character and arithmetic 
variables and constants. You must use commas or semicolons to 
separate the values to be displayed. These separators (delimiters) 
control spacing of the displayed data. For this example, no separator 
is required between the variables and character constants. The only 
instance in which a comma or semicolon is not required is between a 
character constant and a variable, as in this example. 

Here's an example of a program that computes annual interest for any 
rate and principal that you enter: 


0010 INPUT p .• p 
0 0 2 0 I :::: ( R /1 0 0 > P 

0030 PRINT 'THE ANNUAL INTREST AT 
0 0 4- 0 S T 0 P 


PERCENT ON $'p' IS $'I 


When you run this program and use values of 7 and 825, here's what 
you see: 



THE ANNUAL 


AT 7 PERCENT ON 
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If your system has an attached printer, you can specify that the data 
be printed by entering PRINT FLP in place of PRINT in line 30. All of 
the capabilities of and restrictions for the PRINT statement also apply 
to PRINT FLP. A comma must separate the FLP and the first value. 


MAKING HEADINGS 

Suppose you have a loop in a program that computes mileage 
allowances (at 12 cents a mile) for company auto trips (of 10 to 50 
miles in steps of 5 miles): 

0010 FOR X=10 TO 50 STEP 5 
0020 PRINT X, .12*X 
0030 NEXT X 
0040 STOP 

When you run this program, the display screen shows: 


1.2 
1.8 

2 . 4 

3 

4 , 2 

4 . 8 

5 , 4 


You can make headings for these columns by entering a PRINT 
statement before the loop: 

0005 PRINT 'MILES'/MILEAGE ALLOWANCE' 

When you run the program again, the display screen shows: 


RUN 
. 1 . 0 


RUN 


MI LEG 
1 0 

:l. 5 
2 0 
23 


3 0 
A S 

4 0 
4 3 
3 0 


MILEAGE ALLOWANCE 


2.4 

3.6 

4 ,2 
4.8 

3.4 
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You will be shown later how you can change the mileage allowance 
column to include trailing zeros, which will make it more readable as 
dollars and cents. 



MATH CALCULATIONS IN PRINT STATEMENTS 

The PRINT statement allows you to include math calculations along 
with variables and words. Therefore, if you just want a calculation 
done and the result displayed, you can do it in a single PRINT 
statement. For example, you can write 



0010 INPUT X 
0020 PRINT X,X+2 

instead of writing 

0010 INPUT X 
0020 Y=Xf 2 
0030 PRINT X,Y 
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Chapter 8. Setting Up Your Own Format-PRINT USING and Image Statements 


A more flexible way to display results is to use a statement called 
PRINT USING. This statement allows you to display variables using a 
particular format. You specify the format in a separate BASIC 
statement called an image or FORM statement, or you can assign the 
format to a character variable in an assignment statement. The PRINT 
USING statement is used together with an image or FORM statement 
or character variable. The image/FORM statement can appear 
anywhere in a program and can be used by any number of PRINT 
USING statements. A character variable used with a PRINT USING 
statement must have been previously defined with a DIM and/or 
assignment statement. For details on the FORM statement, see the 
IBM 5110 BASIC Reference Manual, SA21-9308. Exercises for this 
chapter are provided in Chapter 13. 

The image statement is a BASIC statement, but it looks different from 
the other BASIC statements. Following the statement number is a 
colon (:). After the colon, you enter the exact wording and format that 
you want your results to have. You leave room for any variable values 
by using # signs where the values belong. When the program is run, 
the system substitutes real values for the # signs and displays the data 
in the image statement (including any blank spaces you leave). A 
sample PRINT USING statement and its image statement are: 

0020 PRINT USING 30,G,N 

0030 :GROSS SALES ARE ###.## AND NET PROFITS ARE ###.## 

Notice that single quotation marks were not used around the character 
data in line 0030. This is true of all image statements, unless, of 
course, you want quotation marks to appear in the displayed or 
printed data. 
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This is the way these two statements work together: 


0020 PRINT USING 30,GJSL^ 

The line number ofA comma^^^ The variables, separated by commas, 

the image statement, is required. whose values are going to be displayed 

or printed in the format specified in 
the image statement. 


O 

G 


0030 :GROSS SALES ARE ###.## AND NET PROFITS ARE ###.## 



This identifies the image 
statement; it does not 
appear when the state¬ 
ment is executed. 



The value of G will be 
inserted here when the 
line is displayed or 
printed instead of 

it 1/ it a a 
11 n ii ii 
It tf IVm If ft • 


The value of N will be 
inserted here when the 
line is displayed or 
printed instead of 
###.##. 



If these two statements were part of a program, with G equal to 
103.72 and N equal to 21.45, at the time you ran the program, the 
system would display: 


HR OSS SALES ARE 103,72 AND NET PROFITS ARE 21 , >45 

Display Position 1 


You can also specify a character variable in place of the line number 
of an image or FORM statement in the PRINT USING statement. For 
example: 

0020 A$='GROSS SALES ARE ###.## AND NET PROFITS ARE ###.##' 
0030 PRINT USING A$,G,N 


Before being used in this manner, character variables must have been 
previously dimensioned to the length of the image (see Arrays, 
Chapter 11) in a DIM statement. 


V / 
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An image statement always begins with a colon. When you enter the 
# signs, as stand-ins for variable values, you are really telling the 5110 
how many spaces to leave for the values. If a value needs more space 
than you indicated, a row of asterisks will be displayed or printed 
instead of the value when the statement is executed. In these 
statements: 

0040 PRINT USING 50,Z,Z+3 

0050 :Z IS ## AND Z CUBED IS ## 

there are only two spaces indicated for each value. If Z is 3, the 
displayed result would be: 


Z IS 3 AND Z CUBED IS 27 


But if Z is 5, then 5 3 is 125, which is three spaces long. The displayed 
result would be: 


Z IS 5 AND Z CUBED IS ** 


The asterisks mean that the answer was too long for the space you 
indicated. 

When you use # signs to indicate space for your variable values in an 
image statement, you can also control how many decimal places you 
want the value to have when it is displayed or printed. You do this by 
inserting a decimal point in the string of # signs wherever you want 
the decimal point to go in the result. For example, when you are using 
dollars and cents, insert a decimal point two places from the right, as 
in this example: 

0100 PRINT USING 110,S 

0110 :THE SERVICE CHARGE FOR YOUR ACCOUNT IS $###.## 

If S were 23.47, the result would be displayed as follows when you 
ran the program: 


THE SERVICE CHARGE FOR YOUR ACCOUNT IS $ 23.M-7 


If your system has a printer, you can use the PRINT USING FLP 
statement to format your data. All the capabilities of the PRINT 
USING statement also apply to the PRINT USING FLP statement. 
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Example of Printing 


There are three sales representatives in your department, and you are 
responsible for making a monthly report showing their sales figures 
for each week of the month. You can write a program that will 
automatically print the report for you in an attractive format. 

This is how the variables in the program are named. Each sales 
Representative is assigned a letter: A, B, and C. Starting with the first 
sales representative, the variables are: 

A$ - Name 

A1 - Sales total for week 1 
A2 - Sales total for week 2 
A3 - Sales total for week 3 
A4 - Sales total for week 4 
A5 - Sales total for the month 


o 

(; 

A .> 


and so on for sales representatives B and C 
There are these other variables: 


M$ 

W$, X$, Y$, and Z$ - 
T1, T2, T3, and T4 - 
T5 


Name of the month 
Last day of each week in the month 
Totals for everybody for each week 
Total for everybody for the month 


s .\ 

4 . /' 


C 

c 

o 
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For this program, you have to supply the month's sales figures, the 
name of the month, and the last day of each week covered. The 
report is then printed automatically. Now enter the following program: 


Supply sales 

representatives 

names. 

Enter dates 
for the weeks. 


0 0 1. 0 
fo 0 2 0 
Jo 030 

loo 4-0 
JO 050 
10 060 
Jo 0 7 0 


0 080 


Supply sales 
figures. 


Compute 

monthly 

totals. 


0 0 9 0 
0 . 1 . 0 0 
0110 
JO 12 0 

{ 0.130 
014 0 
0 15 0 
0 1 . 6 0 
0.1.70 
0180 
019 0 
0 2 0 0 
0 21 . 0 
022 0 


Print figures 
and sales 
representatives 
names. 

Compute 
weekly and 
grand totals. 


Print totals. 


0230 
0 24 0 
0 2 5 0 
026 0 
0 27 0 
0 28 0 
0 29 0 
. 0 3 0 0 
0 310 
0320 
7/330 

( 0 34 0 
0 330 
1)360 


REM PROGRAM FOR PRINTING MONTHLY SALES REPORT 
A $ 1 A D L E R 
B$ = 1 BIPPLE 1 
C$‘ CUBE I NS ‘ 

P RIN T 1 E N T E R M 0 N T PI, L A S T D A Y 0 F E A C P! W E E K 1 
INPUT M$ .• W$, ZT 

P RIN T 1 E N T E R FI0 U R E Si F 0 R A B L E R ‘ 

INPUT A.t , A2.- A3, A4 

P R I! N T 1 E N T E R FIG U R E Si F 0 R BIP P L E 1 

INPUT B1 .■ B2 .• B3, B4 

P RIN T ‘ E N T E R FIG U R E Si F 0 R C LJ B BIN Si 1 

INPUT Cl,02,03,04 

A b A1 + A 2 + A 3 + A 4 

B5--B1. + B2 + B3 + B4 

Cb :::: 01. + 02 + 03 + 04 

PRINT USING 0 1.70 , FLP , M$ 

:MONTHLY SALES REPORT FOR MONTH OF 4444444444 
PRINT FLP 

PRINT USING 0200,FLP 
:SALESMAN WEEK ENDING 

P RIN T U SIN G 0 2 2 0 , F L P , W $ , X $ , Y $ , Z $ 

44 44 44 

PRINT FLP 

P RIN f U Si IN G 0 2 7 0 , F!. , P , A $ , A1., A 2 , A 3 , A 4 
P RIN T I.J SIN G 0 2 7 0 , F L P, 0 $ , 01., C 2,0 3,0 4 
P RIN T U SIN G 0 2 7 0 , F L P , 0 $ , 01., C 2,0 3,0 4 
4444444 4444,44 4444,44 4444.44 

T1 ="A 1 +B1+C1 
T2-A2+B2+02 
T3-A3+B3+C3 
T 4A 4 + B4 + C4 
T5-A5+B5+C5 
PRINT FLP 

P R I! N T U Si IN G 0 3 5 0 , F L F : ', T1., T 2 , T 3 , T 4, 7 5 
: T 0 T A L S 4 44 4 4,4 4 4 4 4 4 4.4 4 4 4 4 4 4,4 4 

STOP 


44 


4444,44 


44444 , 44 


TOTAL 


4444,44 


44444 . 44 


Note that a PRINT FLP statement with nothing after it causes a blank 
line to be printed. This form of the statement is used in lines 0180, 
0230, and 0330 to include blank lines in the printed report. 


Setting Up Your Own Format-PRINT USING and Image Statements 
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If your system has a printer, you can run the program by entering a 
RUN command and pressing EXECUTE. If your system does not have 
a printer, enter a RUN command, then enter P=D. For example: RUN 
P=D, then press EXECUTE. This command directs all printed output to 
the display screen. 

During a sample running of this program, the display screen showed: 


o 

c 


i ./ 

1 2,5 0,5 0 0 . 0 0 , M- 0 0 , 0 0,895.50 
ENTER FIGURES FOR SIPPLE 

31 + , 5 0 , 79,90 ,.500.00,100.0 0 
ENTER FIGURES FOR CUSP INS 

3 0 0.0 0,80 0.00,700.00,43.25 


RUN 

ENTER MONTH, LAST DAY OF EACH WEEK 

JULY , 7 , 14 , 21 , 28 
ENTER FIGURES FOR ADLER 


For this program the printed or displayed output was: 




MONTHLY SALT 

:S REPORT 

FOR MONTH OF 

JULY 



SALESMAN 

l 

WEEK ENDING 

14 

21 

28 

TOTAL 

ADLER 

BIPRLE 

CUSS I NS 

12.50 

3 4 .5 0 

3 0 () , 0 0 

5 0 0 . 0 0 

78.9 0 

8 0 0 . 0 0 

4 (} 0 , 0 0 

5 0 0 , 0 0 

7 0 0 . 0 0 

8 9 5.5 0 

1 0 n . n n 

43.25 

18 0 8.0 0 
713.40 
1843.25 

TOTALS 

347.00 

1378.90 :l 

6 0 0 . 0 0 

1038,75 

4364.65 






Chapter 9. Data Files 


A file is a collection of related data items that are stored together. 
Your system can process both stream-oriented files and 
record-oriented files. In a stream-oriented file, all the data items are 
stored as a sequential stream of data, in the order in which they are 
entered. Data items in a record-oriented file can also be stored 
sequentially in the order they are entered, but they can be retrieved 
according to an identification field called a key or logical record 
number. 

For a complete description of stream/record-oriented files, see the 
IBM 5110 BASIC User's Guide, SA21-9307. 

ACTIVATING AND DEACTIVATING FILES 

Files must be activated or opened before they can be used within a 
program. A stream-oriented file must be opened by an OPEN 
statement in a program. A record-oriented file must be opened by an 
OPEN FILE statement. The following example shows the format of an 
OPEN statement: 

0050 OPEN FL1,'E80',2'INVTY',OUT 

FL1 is the file reference, which can be from FLO to FL9, but must be 
the same as the file reference in the GET or PUT statement. 'E80' is 
the device address of the tape unit built into the 5110 Model 1. The 
number 2 specifies which physical file on tape is going to be used. 
This number can be specified as a variable. The word OUT indicates 
that the file is to be used for storing data items (with PUT statements) 
in the file for use in the program. 

If you are opening a file on diskette, replace 'E80' in the sample 
statements with 'D80' (device address of diskette drive 1) and enter 
the name of the file on diskette. The file name is required when you 
create a file on diskette. 

If a record-oriented file were to be created with WRITE FILE 
statements, it could be opened as an output file with this statement: 

0100 OPEN FILE FL1,'D80',2,'INVTY',OUT,RECL=128 

Note: See the IBM 5110 BASIC Reference Manual, SA21-9308, for a 
complete description of the OPEN statement. 
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Normally, a file is deactivated or dosed by the system after execution 
of your program. However, if you want to switch an input file to 
output (or vice versa) and continue to use it in the same program, you 
must deactivate it by using the CLOSE [FILE] statement before 
reopening it. (If you did not use the CLOSE statement and attempted 
to use an output file for input or vice versa, execution of your program 
would be terminated.) The CLOSE statement deactivates the file; a 
subsequent OPEN statement opens (reactivates) the file for its new 
use and repositions it at its beginning. Under ordinary circumstances, 
the CLOSE statement is optional, and the system will close a file at the 
end of program execution. 

The CLOSE statement is required, however, if you use the same file 
for both input and output operations in the same program. This does 
not apply to record-oriented files opened with the ALL parameter (see 
OPEN FILE Statement in the IBM 5110 BASIC Reference Manual, 
SA21-9308). The CLOSE statement is also required if several different 
files are accessed by the same program. 


CREATING A TAPE OR DISKETTE FILE 

The following compound interest program can be used to produce an 
output listing containing 600 values in 200 lines: 


o 


0 0 

p 

RINT ' 

ENTER PR INC I 

P A 

0 

0 

2 0 

I 

NP UT P 



0 

0 

3 () 

p 

RINT F 

LP, * TINE 1 , 

‘ R 

0 

o 

'•10 

F 

OR T--1 

TO 10 


o 

o 

5 0 

F 

OR R = 1 

TO 2 0 


0 

0 

6 0 

A 

~P# < 1 

r / | n n > t T 


0 

o 

7 0 

P 

RINT F 

LP.. T . R.. A 


0 

0 

8 0 

N 

EXT R 



0 

() 

90 

N 

EXT T 



0 

1 

0 0 

O 

TO p 




The PRINT statement in this program is executed 200 times to 
produce an output listing containing the values. These values could be 
grouped as an output file on tape or diskette. In fact, instead of 
printing them, you could store them in the file and use them later. By 
adding an OPEN statement and substituting a PUT statement for the 
PRINT statement (line 0070), you can create a tape or diskette file; for 
example: 

0025 OPEN FL1,'E80',2,OUT 

0070 PUT FL1,T,R,A 
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This PUT statement instructs the system to put the values contained in 
the variables T, R, and A into the file that is defined in the OPEN 
statement with the same file reference (FL1). As far as the system is 
concerned, both PUT and PRINT mean output; the only difference is 
whether the output goes to a tape or diskette file, or to the printer or 
display screen. Semicolons cannot be used to separate variables in a 
PUT statement; use only commas. 


RETRIEVING A FILE 

To access data in a tape or diskette file, you use the GET statement, 
which is the input counterpart to the PUT statement. The file must 
first be opened, as shown below. 

0050 OPEN FL1/E80',2,IN 

To access the first set of values from the file created with the 
preceding PUT statement (statement 0070, above), you can use the 
following GET statement. The file reference (FL1) must be the same 
as the file reference in the OPEN statement that defines the specific 
file. 

0070 GET FL1,T,R,A 

This statement assigns the first three values contained in the file to 
the variables T, R, and A. It is not necessary to use the same variable 
names that were used when the file was created; for example, we 
could assign these values to variables X, Y, and Z. The important 
requirement is that the values in the file and the variables to which 
they are assigned must be the same type-arithmetic variables for 
arithmetic values, and character variables for character values. 

After the first GET statement is executed, the file is positioned at the 
next value. Thus, a second GET statement referring to FL1 would 
access the next three values in the file. If we wanted to access all the 
values stored previously, we could issue the GET statement 200 times, 
or enclose one GET statement in a loop as follows: 

0050 OPEN FL1 ,'E80',2,IN 
0060 FOR X=1 TO 200 
0070 GET FL1,T,R,A 
0080 PRINT T,R,A 
0090 NEXT X 

These statements would print the 200 values for each T, R, and A. 
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REPOSITIONING FILES 


You may have an occasion to use an input file or an output file more 
than once in the same program. The RESET statement allows you to 
reposition the file without deactivating it (deactivation is necessary 
only when the function of a file is changed from input to output or 
vice versa). For example: 

0020 OPEN FL4/E80',4,IN 
0030 GET FL4,X,Y,Z,Q,R,S 


0100 RESET FL4 

0110 GET FL4,X,Y,Z,Q,R,S 


0150 RESET FL4 
0160 GET FL4,X,Y,Z,Q,R,S 


Between statements 0030 and 0100, the variables X, Y, Z, Q, R, and S 
could be used in one set of calculations and their values changed. By 
repositioning the file, the original values in the file could again be 
made available and put into variables X, Y, Z, Q, R, and S for different 
calculations or uses between statements 0110 and 0150, and again 
between statement 0160 and the end of the program. Actually, the 
RESET statement used in this way functions for files in the same way 
that the RESTORE statement functions for the data table created by 
the DATA statement. 

To add data to the end of the file, you can reset it to its end by using 
the RESET statement with the END keyword: 

0200 RESET FL1 END 

This statement positions FL1 to the end of the last data item in the 
file. PUT statements appearing after statement 0200 will place 
additional values in the file. In effect, RESET END allows you to build 
onto a file. (See RESET Statement in the IBM 5110 BASIC Reference 
Manual, SA21-9308.) 







Chapter 10. Arrays 


With the BASIC language, you can keep groups of similar data 
(arithmetic or character) together by organizing them into arrays. An 
array is a collection of data items that is referred to by a single name. 
Exercises for this chapter are provided in Chapter 13. 

Arithmetic arrays are named by a single letter of the extended 
alphabet. Thus, the letter A can stand for a single arithmetic variable 
or an arithmetic array or both, while the symbol A2 can only stand for 
a single arithmetic variable. A single letter stands for an array when it 
has been defined in a DIM (dimension) statement, which is described 
later. All elements of an arithmetic array are initially set to 0 when the 
program is executed. 

Character arrays, like simple character variables, are named by a single 
letter of the extended alphabet followed by a dollar sign ($). Each 
element of a character array can be up to 255 characters in length. 
Each element is initially set to blank characters when program 
execution begins. 

BASIC arrays can be either one or two dimensions. A one-dimensional 
array can be thought of as a row of successive data items. A 
two-dimensional array can be thought of as a rectangular matrix of 
rows and columns. A representation of a one-dimensional array A 
containing four elements is: 


Array A 

| A(1) | A(2) I A(3) | A(4) 1 


A representation of a two-dimensional array B with four rows and 
three columns is: 


Array B 


B( 1,1) 

B(1,2) 

B( 1,3) 

B(2,1) 

B(2,2) 

B(2,3) 

B(3.1) 

B(3.2) 

B(3,3) 

B(4,1)_ 

B(4.2) 

B(4.3) 
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To illustrate the use of one- and two-dimensional arrays, suppose you 
are keeping weather statistics on the average temperature and the 
inches of rainfall for 12 months. You can write a program to keep 
each set of that data in arrays: 

• Names of the months 

• Average temperature for each month 

• Total rainfall for each month 

You can arrange the data as three one-dimensional arrays: 


Array 1 


Array 2 


Array 3 


Names of Months 


Average 

Temperature 


Rainfall 

January 


28 


3.47 

February 


31 


2.10 

March 


35 


2.95 

April 


49 


4.82 

May 


60 


3.02 

June 


64 


2.87 

July 


75 


2.04 

August 


81 


1.89 

September 


71 


2.74 

October 


59 


2.90 

November 


46 


1.85 

December 


37 


2.35 


O 

(j 

G 


X "\ 

\ / 


Or as one two-dimensional array: 


Array 1 


Month 

Temp 

Rainfall 

1 

28 

3.47 

2 

31 

2.10 

3 

35 

2.95 

4 

49 

4.82 

5 

60 

3.02 

6 

64 

2.87 

7 

75 

2.04 

8 

81 

1.89 

9 

71 

2.74 

10 

59 

2.90 

11 

46 

1.85 

12 

37 

2.35 
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The second example is really a modified combination of the three one¬ 
dimensional arrays. The first column has been changed to the numeric 
representation of the months because the names of the months 
(character data) cannot be included in the same array with numeric 
data. 

It will be much easier to use the weather data if we keep it together in 
three one-dimensional arrays, or in one two-dimensional array, than it 
would be if we considered it as 36 separate variables. This chapter 
will show you how to work with arrays in BASIC programs. 


DEFINING AN ARRAY 

When you want to work with an array, you must first tell the system 
that you are using an array and not ordinary variables. This is called 
defining your array. Defining the array merely involves telling the 
system how big the array is going to be so the system can leave room 
for it, and telling the system what kind of data will be in it. (Later on 
you enter the data, but this is not part of defining the array.) 

The data for your arrays can be numeric data or character data. You 
can define an array to contain either kind of data, but it must contain 
only one kind of data. You can't mix characters and numbers in a 
single array. That's why we used the numbers of the months instead 
of their names when we put the weather data in a two-dimensional 
array. 

An array composed of numbers is called an arithmetic array. It is 
named by a single letter of the extended alphabet such as A or T. 

An array composed of character data is called a character array. It is 
named by a single letter of the extended alphabet followed by a dollar 
sign ($); for example, N$ or Q$. 

To define either kind of array, you use a statement called DIM. In the 
DIM statement, you name the array and include the size of it in 
parentheses after the name. 

DIM Statement for One-Dimensional Arrays 

For a one-dimensional array, the size is a single number. Thus, to 
define an arithmetic one-dimensional array A with 12 elements, your 
DIM statement is: 

0010 DIM A(12) 
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To define character array N$ with 20 elements, your statement is: 


0010 DIM N${20) 

To define both together, your statement is: 
0010 DIM A(12), N$(20) 


DIM Statement for Two-Dimensional Arrays 

For two-dimensional arrays, the size is two numbers, one for each 
dimension. The first number is the number of rows in the array; the 
second number is the number of columns in the array. 

To define array W with 12 rows and 3 columns, the DIM statement is: 

0010 DIM W(12,3) 

Character array A$ with 3 rows and 4 columns is defined by: 

0010 DIM A$(3,4) 

You can define all your arrays in a single DIM statement. You can also 
mix definitions of one- and two-dimensional arrays in a single DIM 
statement. 


DIM Statement for Character Variables 

The DIM statement is also used to define the length of character 
variables to be referenced in a program (such as by a PRINT USING 
statement, as previously described). The DIM statement to define a 
character variable has the following format: 

0010 DIM A$49,B$8(10) 

In this example, character variable A$ has been assigned a length of 
49 characters, and character array B$ has been assigned 10 elements 
of 8 characters each. Once you have defined a length for a character 
variable, you can assign a value of that length. If you do not define a 
length in a DIM statement, the character variable has an assumed 
(default) length of 18 characters. 
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ELEMENTS OF ARRAYS 


Each individual item in an array is called an element of the array. 

When you want to refer to a particular element of an array, instead of 
the whole array, you talk about the position of that element in the 
array. For example, if you want to refer to the third element of 
one-dimensional array H, you would refer to it as H(3). To refer to the 
element in the first row and third column of array W, you use W(1,3). 
The position goes in parentheses after the name of the array. For 
two-dimensional arrays, the first number is always the number of the 
row, the second number is always the number of the column. 

If we look at the weather example as three one-dimensional arrays, we 
can call the array with the names of the months M$, the array of 
temperature data T, and the array of rainfall data R. If we consider the 
weather data as one two-dimensional array, called W, the numbers of 
the months are in column 1, the temperature data is in column 2, and 
the rainfall data is in column 3. If you wanted to refer to January in a 
program statement, you would refer to either M$(1) or W(1,1). 

Here are all the months and the way you refer to them in arrays M$ 
and W: 


This Month: 

is in this Position: 

In Array M$ 

In Array W: 

1 (January) 

M$(1) 

W(1,1) 

2 (February) 

M$(2) 

W(2,1) 

3 (March) 

M$(3) 

W(3,1) 

4 (April) 

M$(4) 

W(4,1) 

5 (May) 

M$(5) 

W(5,1) 

6 (June) 

M$(6) 

W(6,1) 

7 (July) 

M$(7) 

W(7,1) 

8 (August) 

M$(8) 

W(8,1) 

9 (September) 

M$(9) 

W(9,1) 

10 (October) 

M$(10) 

W(10,1) 

11 (November) 

M$(11) 

W(11,1) 

12 (December) 

M$(12) 

W(12,1) 


Note that the month names are not used in array W, although the 
corresponding month number is used. 

If we include the temperature and rainfall data, the first element in 
each one-dimensional array-M$(1), T(1), R(1)-or the first row in array 
W-W(1,1), W(1,2), W(1,3)-will be data for January; the second 
element in each one-dimensional array, or the second row in W, will 
be data for February; and so on. 




So far, however, there is no data in any of the arrays. We have only 
defined the names and sizes. After you define an array, the system 
sets the values of all its elements to 0 (for arithmetic arrays) or blanks 
(for character arrays). 


Assigning Values to Array Elements 

To assign values to array elements (the names of the months, the 
temperatures, or the rainfall), you use the methods of assigning values 
that you've been using all along. 


LET Statements 

You can use a LET statement to assign a value to an element of an 
array. So if the average temperature for January is 28°, you could 
write either of these statements: 

0020 LET T(1)=28 
0020 LET W(1,2)=28 

This method is acceptable if you only have a few values to assign, but 
it is time-consuming if the array is large. In the weather example, we 
would need 36 separate LET statements to assign all the data to the 
arrays. Nevertheless, the LET statement is handy if you only want to 
assign a few values, or if you want to change a value you have already 
assigned. 

Remember that if you are assigning a value to an element of a 
character array in an assignment statement, you enclose the 
characters you are assigning in single quotation marks. For example: 

0020 LET M$(1 )='JANUARY' 


DATA and READ Statements 

Another way to assign values is to use DATA and READ statements. 
You use these the same way you do for variables. For example: 

0020 READ M$(1 ),M$(2),M$(3) 

0030 DATA JANUARY,FEBRUARY,MARCH 

or 

0020 READ W(1,1 ),W(2,1 ),W(3,1) 

0030 DATA 1,2,3 
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Again, when you are using large amounts of data, listing them all 
separately in a READ statement is not practical. In this example, you 
can take advantage of a FOR-NEXT loop to assign values: 

0020 FOR 1=1 TO 12 
0030 READ T(l) 

0040 NEXT I 

0050 DATA 28,31,35,49,60,64,75,81,71,59,46,37 
or 

0020 FOR 1=1 TO 12 
0030 READ WO,2) 

0040 NEXT I 

0050 DATA 28,31,35,49,60,64,75,81,71,59,46,37 

These statements assign all the average temperature data to array T or 
to the second column of array W. (For array W, since we are 
assigning values only to the second column, we used a constant of 2 
in the READ statement.) You can't avoid specifying 12 values in the 
DATA statement, but a loop like this makes the READ statement 
easier to handle. 

When assigning values to array W, you could, in fact, use one READ 
statement and two loops to assign all the data at once. It would look 
like this: 

0020 FOR 1=1 TO 12 
0030 FOR J=1 TO 3 
0040 READ W(I,J) 

0050 NEXT J 
0060 NEXT I 

Arranged this way, the loops let you enter the data for each row of 
the array in succession. Your DATA statements might look like this: 

0070 DATA 1,28,3.47 
0080 DATA 2,31,2.10 
0090 DATA 3,35,2.95 

We've entered the data for each row of array W in a separate DATA 
statement because it is easier to visualize the data that way. You 
could, however, string out the data so that more than one row appears 
in a DATA statement like this: 

0070 DATA 1,28,3.47,2,31,2.10,3,35,2.95 . . . 

This way you could enter as many data items in each DATA statement 
as will fit on a line. The important thing is that the data must appear 
in the same order as if you were entering it row by row. 
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INPUT Statements 


You can use INPUT statements to assign values from the keyboard to 
array elements. You can list all the array element names in the INPUT 
statement, or you can write a FOR and NEXT loop-similar to the ones 
for READ-to specify the names of the elements that are to recieve 
values. 


For example, you can assign values to the one-dimensional rainfall 
array R with this statement: 

0020 INPUT R(1 ),R(2),R{3),R(4),R(5) 

or with these statements: 

0020 FOR 1=1 TO 12 
0030 INPUT R(l) 

0040 NEXT I 


You can assign the rainfall data to the third column of array W with 
these statements: 


0020 FOR 1=1 TO 12 
0030 INPUT W{l,3) 
0040 NEXT I 


As with the READ statement, you can write a double loop for an 
INPUT statement so that you can supply all the data for array W at 
once. In all instances, the system flashes a question mark on the 
display screen when the system is ready for you to enter the data 
from the keyboard. However, if your INPUT statement is in a loop, the 
system flashes a question mark each time the loop is executed. This 
means you supply one item of data, wait for the next question mark, 
supply the next item of data, and so on. You will have to enter the 
data one item at a time, waiting fqr a question mark after each entry. 



4 ."\ 

\ p 


A / 


Another Way to Assign Values to Arrays 

4f " \ 

Instead of using a loop with a READ or INPUT statement to assign ^ ^ 

values, you can write a READ or INPUT statement such as: 

0020 MAT READ M$ 

0030 MAT INPUT N 

4 ' 

4 ., 
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These statements tell the system to read in values for the entire array. 
The letters MAT stand for the word matrix. 

This method of assigning values with a MAT READ statement has no 
effect on your DATA statements. Thus, to assign the temperature data 
to one-dimensional array T, you could write these statements: 

0020 MAT READ T 

0030 DATA 28,31,35,49,60,64,75,81,71,59,46,37 

If you use a MAT READ W statement, you would have to enter the 
data for the entire array in DATA statements. You assign the data row 
by row with these statements: 

0020 MAT READ W 
0030 DATA 1,28,3.47 
0040 DATA 2,31,2.10 
0050 DATA 3,35,2.95 

or with these statements: 

0020 MAT READ W 

0030 DATA 1,28,3.47,2,31,2.10,3,35,2.95 

If you use a MAT INPUT statement to assign values to an array, the 
system will signal you with a flashing question mark, as usual, when it 
is ready for you to enter data from the keyboard. If you are supplying 
values for a one-dimensional array, just type in all the values on a 
single line. If you are supplying values for a two-dimensional array, 
type in all the data row by row. Remember that the values must be 
separated by commas. 


Assigning Values to an Entire Array at Once 

If you want every element of an array to have the same value, such as 
all Vs or all 0's, you can assign that value to each element of the array 
with the following statement: 

0030 MAT A=(0) 

You could also assign to every element of an array the value of a 
variable or the value of an arithmetic expression with this statement: 

0050 MAT T=(X) 

or this statement: 

0060 MAT M=(X+Y*Z) 
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The value you are assigning must be enclosed in parentheses so that 
the system knows it is not the name of another array. 

If you omit the parentheses, you can make one array an identical copy 
of another array by using this statement: 

0070 MAT R=S 

In this statement, you don't use parentheses because you are, in fact, 
referring to another array in this assignment statement. 

This method of assigning values is limited, however. You can't use the 
following statement: 

0040 MAT R=-S 

to set the values of the elements of array R equal to the negative 
values of the elements of array S. To do that, you would have to write 
this statement: 

0040 MAT R=(-1 )*S 

(See Arithmetic with Arrays later in this chapter for more 
information.) 


Working with Elements of Arrays 

After you assign values to elements of arrays, you can perform 
calculations with individual array elements. You use elements of arrays 
just as you use any variable in any BASIC statement. Nothing is 
different except that you are keeping a set of variables together for 
your own convenience in organizing data. Each element still has a 
value and can act as an independent variable. 
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Printing Arrays 

Elements of arrays, like ordinary variables, can be used in any PRINT 
or PRINT FLP statement. Some examples of PRINT and PRINT USING 
statements that include array elements are: 

0020 PRINT T(3),T{4),M$(2),W{10,2},X,Y,Z 

0030 PRINT FLP/THE AVERAGE RAINFALL FOR JANUARY IS:',W(1,3) 
0080 PRINT USING 90 FLP,M$(3),R(3) 

0090 :FOR THE MONTH OF ########## THE RAINFALL WAS #.## 

In addition, you can print an entire array if you insert MAT before the 
PRINT statement. For example, the statement 

0090 MAT PRINT FLP,T 

will print the entire one-dimensional temperature array T. The 
statement 

0060 MAT PRINT FLP,W 

will print the entire two-dimensional weather array W. It will be 
printed row by row. 

You cannot enter arrays and ordinary variables together in a MAT 
PRINT statement, although they can be intermixed in a simple PRINT 
statement if the array reference is preceded by MAT. 


Arrays 
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Putting One-Dimensional Arrays Together in a Program 

Now we'll put the three one-dimensional weather arrays, M$, T, and R, 
together in a sample program that will keep all the data and display it 
when you run the program: 


o 


0010 REM THIS PROGRAM KEEPS WEATHER DATA X ’N 

0020 DIM M$ 18(12) , T< 12) , R (12 > V > 

0030 FOR 1=1 TO 12 
0 04-0 READ mil) iT<I) , R (I) 

0050 NEXT I 

0 060 DATA JANUARY , 28,3.4-7* 

0 0 7 0 DAT A F E B R U A R Y , 31 , 2.1 f .X 

0080 DATA MARCH ,35,2.95 \ > 

0 090 DATA APRIL , 49.4-, 4-. 82 

0100 DATA MAY ,60,3.02 

0110 DATA JUNE ,64,2.87 

0120 DATA JULY ,75,2.04 

013 0 D A T A AIJ G U S T , 81,1.8 9 

0140 DATA SEPTEMBER ,71,2.74 

0150 DATA OCTOBER ,59,2.9 

0 16 0 D A T A N 0 V E M B E R , 4 6,1.8 5 

0170 DAT A D E CEM BER ,3 7,2.3 5 

0180 PRINT USING 0190,FLP 

0190 : MONTH AVG TEMP RAINFALL FOR 1974 

0200 FOR 1=1 TO 12 

0210 PRINT USING 0230,FLP,M$(I),T(I),R<1) X 

0220 NEXT I \ j 

0 230 : EKE EE, 4 

0240 STOP 


This program uses FOR and NEXT loops to simplify handling the large 
number of values involved in these arrays. Notice that instead of 
writing a FOR and NEXT loop for each array when we were assigning 
values to the members, we wrote a single loop that worked across the 
three arrays instead of completing each 12-element array individually. 

Of course, the DATA statements had to have their data in the same 
order. 

,X""N 

We also used a loop to display the data. It lets us use a single PRINT \ y 

USING statement with a single image statement to print out 12 lines 
of data. 


4T > 

y 



104 






After you enter the statements and run the program, the display 
screen shows: 


M 0 N T M 

AVG TEMP 

R AIN 

JANUARY 

28 

7 i 

FEBRUARY 

3:1. 

2 , 1 

MARCH 

..*» b 

3 . 0 

APRIL 

L|,9 

4 , 8 

MAY 

60 

3 , 0 

JUNE 

AT 

2 , 9 

JULY 

~v r.v 
< 

2 , 0 

AUGUST 

81 

i, 9 

SEPTEMBER 

71 

2 , 7 

OCTOBER 

39 

2 , 9 

NOVEMBER 

4-6 

1 , 9 

DECEMBER 

3 7 

2 , 4- 


Two-Dimensional Array 

Now we'll do the same thing with the two-dimensional array W. This 
time we'll use MAT READ W and MAT PRINT FLP, W statements 
instead of using loops to assign the weather data and print it. If your 
system does not have a printer, skip this program because the output 
exceeds the limits of the screen: 


AUTO 






Q i"! ;|. 0 

REM 

THIS PROGRAM KEEI 

•S DATA IN 

A 2 

DIM A R R A Y 

0 Q 2 0 

DIM 

W < 3. 2 , 3 ) 




n 0 3 0 

MAT 

READ W 




0 0 4- 0 

DATA 

.1. , 28 .. 3 , 3 , 2 .■ 3:1. , 2 

1 ; 3,33,3. 

i.j. , i.|. 9 

, 13 ., 8 , 3 , 6 0 ,3 

0 0 5 0 

DATA 

A .■ 6 4- .■ 2 , 9 7 .< / b .• 2 

,8,81,1,9 

9,71 

, 2 , 7 , 3 n, 39 , 

0 0 6 0 

DATA 

1 :l. , 4-6 , :l.. 9,12,37 

2 . 4- 



0 070 

PR IN 

T UP, TNG 0 0 00, FLP 




i.j (10 1 i 

: MONTH AVC 

0 TEMP 


RAINFAL 

0 0 9 0 

MAT 

PRINT FLP,W 




0 :l. 0 0 

STOP 
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The printed output is: 


o 


MONTH 


AVG TEMP 


RAINFALL FOR 197M- 


90 

31 

L|.9 
6 0 
6 i i 


2,1 
3 

4-. 8 


1 0 


! :: i V 


4-6 


1.9 


o 

o 


4 >■ 


ARITHMETIC WITH ARRAYS 

Suppose, instead of weather data for one year, you have weather data 
for two years. This data can be in two arrays. You are interested in 
averaging the temperatures and rainfall over the two years and making 
new arrays to contain the two-year averages. To see how to do this, 
let's look at the two sets of temperature data. If you assume that they 
are in two one-dimensional arrays called A and B, then to find the 
average temperature for each month over the two years, you have to 
add the two temperatures for January and divide by 2, add the 
temperatures for February and divide by 2, and so on. 
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Addition and Subtraction with Arrays 

You can do all the addition in one step, adding the entire array A to 
the entire array B, with this statement: 

0010 MAT C=A+B 

Again, the letters MAT stand for matrix. The preceding statement 
causes each element of array A to be added to the corresponding 
element of array B and the result to be stored in the corresponding 
element of array C. 

The same kind of addition statement works if you want to add 
two-dimensional arrays. If all the weather data for the first year is in 
two-dimensional array T and for the second year in two-dimensional 
array U, and you want the result in array V, the statement is: 

0040 MAT V=T+U 

Each element of array T is added to the corresponding element of 
array U. This includes the columns with the numbers of the months 
and the columns with the rainfall. 

Similarly, if you want to subtract each element of an array from the 
corresponding element of another array, you would write this 
statement: 

0050 MAT C=A-B 

The letters MAT always tell the system to work with an entire array. 
Just remember that you must define all the arrays, including the one 
which is receiving the results, in a DIM statement at the start of your 
program. Also, you can only add or subtract when all the arrays 
named have the same dimensions. You can't, for example, add a 
14-element array to a 12-element array. 


Multiplication and Division 

We have seen how to add and subtract array elements. Now what 
about dividing by 2? Before we can divide, we must see how to 
multiply, because BASIC doesn't let you divide arrays directly; you can 
only multiply. You can multiply each element of an array (called A, for 
example) by a constant, a single variable, or an arithmetic expression 
with this statement: 

0030 MAT C=(2)*A 


Arrays 


107 



The multiplier always goes in parentheses so the system knows it is 
not another array, and it must always go before the *. For division, 
you merely multiply the array by 1 over the divisor, or by a decimal 
number such as 0.5. Therefore, to divide each element of array A by 
2, you would use this statement: 

0080 C=(1/2) # A 


Averaging Two Sets of One-Dimensional Arrays 

If the weather data is kept in two sets of one-dimensional arrays, A 
and B for temperature and C and D for rainfall, a program for 
averaging the two sets of data and assigning the results to master 
arrays T and R might look like this: 


o 

(J 



0 

0 .1. 0 

DIM 

M $ 

1 

8 < :f. 

2) , 

A < 

i: 

2) , B < 12 

1 ) , C (12) , D (12 ) , 7' < 

0 

0 20 

MAT 

RE 

A 

D H 

$ 





0 

030 

DATA 


J 

AN 

, F 

EB 


■ MAR , 

ARP , MAY , JUN 

o 

0 4- 0 

DAT A 


<2 

EPT 

J 

DC 

.... 

, NOV 

, DEC 

0 

050 

MAT 

RE 

A 

D H 

, B, 

C .• 

D 



0 

06 0 

DATA 

'*> 

0 

, 21 

28 

- 2 

31 

24,25, 

2/27,28,29,30,31 

o 

0 7 0 

DATA 

1 

o 

, 12 

, 14 

, 1 

6 j 

.18 20, 

28,24 - 28,30.3| 

0 

080 

DATA 


, 

■ t p 

, 2, 

3, 

3, 

3, ' I-, '•!•, 

4,5,5 

0 

090 

DATA 

5 

.. 

5.. 5 

; 4 , 

'•!•, 

!•!• , 

i A \. i t t 

1 f 5 .« /.•;! 

0 

1 0 0 

MAT 

T= 

A 

+ B 






0 

11 0 

MAT 

T= 

( 

1/2 

) *T 





0 

120 

MAT 

Rr,: 

c 

+ D 






0 

130 

MAT 

R“ 


1/2 

) * R 





0 

mo 

FOR 

I = 

•J. 

TO 

12 





0 

150 

PRINT 

F 

L P, 

M$ ( 

I ) 

, 1 

r •: i >, r < 

i > 

0 

160 

NEXT 

I 








0 

170 

STOP 










We defined arrays T and R in the DIM statement on line 10, as well as 
arrays M$, A, B, C, and D. Note that we only need one array for the 
names of the months, no matter how many years of data we have 
stored in other arrays. 

f .^ 

V.> 


/ ^ 

1 ./ 
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Averaging Two-Dimensional Arrays 

If the two sets of weather data are stored in two-dimensional arrays X 
and Y, a program for averaging the data might look like this: 


X 0 D l H X < .1.2 


r 

0 0 2 0 
n 0 "K fi 

MAT i : 

'fi A T A 

c a, y’| y : y 

V 





o o 5 o 

0 0 6 0 

.U S'T 1 i"i 

Da i A 
DAT 

► Data for Arrays X and 


0 0 7' 0 

MAT l 

.J-Tx-f V 

L,_ 

0 0 8 0 

0 0 9 0 
fi fi i fi 

MAT t 
H A ? 1 
END 



We defined array W along with arrays X and Y in the DIM statement 
at the start of the program. Note that the numbers of the months, 
which are in column 1 of both arrays X and Y, are added in statement 
0070 along with the rest of the data in arrays X and Y. But when we 
divide by 2 in statement 0080, we get back the original numbers 1 
through 12. 



Matrix Multiplication 

To multiply a matrix by another matrix, first be sure that the two 
matrices have compatible dimensions: if A is a 4x5 matrix, then B 
must have 5 rows; for example, B can be a 5x7 matrix. This 
multiplication looks like: 

2 U i’i R ! L'A $(• .2 



There are no parentheses because both A and B are matrices. 
Matrices A, B, and C should all be defined in a DIM statement before 
you use the multiplication statement. Matrix C must have dimensions 
equal to the number of rows in matrix A and the number of columns 
in matrix B. 


Taking a Matrix Transpose 

You can transpose a matrix (interchange its rows and columns) with a 
single statement, like this: 


Matrix B assumes a value equal to the transpose of matrix A. When 
defining matrix B, remember that it must have dimensions opposite to 
those of A. 
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The Identity Matrix 

You can make any square matrix (a 2x2 matrix, or a 12x12 matrix, for 
example) into an identity matrix (a matrix with ones on its diagonal and 
zeros everywhere else). You start by defining a square matrix, called I, 
for example: 

1 0 El IM I (ty ) 

Then you write this statement: 

20 MAT I■■■■■■■ U)H 

This creates a matrix I that looks like this: 

10 0 0 
0 10 0 

0 0 10 

0 0 0 1 

From then on in your program, you can use I to do calculations that 
require a 4x4 identity matrix. 


Taking the Inverse of a Matrix 

If you want to find the inverse of matrix A (the inverse is the matrix 
that gives you the identity matrix when you multiply it by A), you do it 
with a single program statement: 

80 MAT B~INV<A> 

Remember that for a matrix to have an inverse, it must be square (2x2, 
12x12, etc.), and its determinant must not be equal to zero. You can 
check the determinant by using a built-in function called DET. DET(A) 
computes the determinant of matrix A. Before you use INV, then, you 
can test DET(A) with an IF statement like this: 

65 IF DET<A)”=0 GOTO 85 

If you try to take the inverse when the determinant is zero, you will 
cause an error that will stop your program from running. 


o 

{_> 



4 
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Chapter 11. More Things You Can Do With BASIC 




FINDING SQUARE ROOTS 

You can determine square roots automatically with your 5110. Instead 
of writing your own formula for determining the square root of a 
number, you use the letters SQR, followed by the number whose 
square root you want to know enclosed in parentheses. For example, 
SQR (X) finds the square root of X, where X is 0 or a positive number. 

You can use SQR in any of your arithmetic expressions, and the 
expressions inside the parentheses can involve any kind of arithmetic. 
For example: 

yjX +Y is entered as SQR (X+Y) 



yf 


X+Y+Z 


is entered as SQR ((X+Y+Z)/5) 


is entered as SQR (A+X/2) 

Other conversion and trigonometric functions and conversion 
constants in BASIC are discussed in this chapter. 


nTF 



C v 

1 s' 
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SOME GENERAL SYSTEM FUNCTIONS 


O 


Your system provides you with the following general functions in 
addition to square root. To use these functions, simply substitute the 
name of your own variable for the character inside the parentheses. 
Exercises for this chapter are provided in Chapter 13. 


ABS(X) 

IDX(C 1f C 2 ) 


LEN(C) 


INT(X) 


Gives the absolute value of X. 

Gives the location of the C 2 character string within 
the C 1 character string (relative to position 1). If 
C 2 does not appear in C 1# the value of IDX is zero. 

Gives the length of the C character string, less 
trailing blanks. If C is all blanks, the value of LEN 
is zero. 

Gives the integer part of X. 


RND or RND(X) Generates a random number between 0 and 1. 

SGN(X) Determines the sign of variable X, and returns a 

value of -1, 0, or +1, depending on whether X is 
negative, zero, or positive. 


\ > 


■\ * 


•ii / 


V > 
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You can also include expressions inside the parentheses, for example: 


INT(X + 2+Y*12) 

You might use SGN(X) to find out if X is positive: 
SGN(X) 


The RND function is a little different from the other functions. You can 
use RND alone, without a value, to generate a random number 
between 0 and 1. Each subsequent use of RND in the program will 
generate a new random number. However, if you rerun the program 
with a new RUN command, the random numbers generated will be the 
same as the numbers generated the first time you ran the program. 

To avoid this, you can use RND(X) to start different sets of random 
numbers each time you run your program. The value of X is used by 
the process that develops the random number. If you want a random 
number that is a whole integer instead of a decimal number between 0 
and 1, multiply the result of RND or RND(X) by a constant (depending 
on what range you want the random numbers to have); and then use 
the INT function to make the result an integer. 


For example: 


INT(RND*10) 

Produces a 

INT(RND*100) 

Produces a 

INT(RND*1000) 

Produces a 


random integer between 0 and 9. 
random integer between 0 and 99. 
random integer between 0 and 999. 
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ARITHMETIC CONSTANTS 

There are special constants in BASIC that are used to convert pounds, 
inches, and gallons to metric kilograms, centimeters, and liters 
respectively. Normally, when you want to switch from the U.S. 
measuring system to the metric system, you multiply the measured 
quantity by a fixed constant to obtain the equivalent measurement in 
the metric system. For example, 1 lb equals 0.454 ... kg, so 2 lbs 
equal 2*0.454 ... kg. With BASIC, instead of remembering what the 
conversion multipliers are, the 5110 can provide them for you. These 
constants are: 

• &INCM, which has a value of 2.54 (centimeters per inch) 

• & LBKG, which has a value of 0.45359237 (kilograms per pound) 

• &GALI, which has a value of 3.785411784 (liters per gallon) 

In addition, BASIC has three built-in arithmetic constants to represent 
the values of: 

1. e (natural log) = 2.718281828459045 

2. 77 (pi) = 3.141592653589793 

3. V2"(square root of 2) = 1.414213562373095 

For example, if you want to use 77 in an equation, you don't need to 
type in 3.14 . . . . You just use the special BASIC constant. Here are 
the special symbols that BASIC recognizes for these constants: 

For This Constant: Use This Symbol: 

e (natural log) & E 

77 (pi) & PI 

%/T (square root of 2) & SQR2 

You might use one of these constants in a program that calculates the 
area of a circle (AREA = 77R 2 is the formula). Your program statement 
would read: 

50 LET A= & PI*R + 2 

You can use these constants anywhere in your programs. 
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CONVERSION FUNCTIONS 


c 

c 

c 

c 

c 

c 

c 


BASIC has some built-in ways to convert values from one measuring 
system to another. 


DEG(X) 

Gives the number of degrees in X radians. 

RAD(X) 

Gives the number of radians in X degrees. 

CHR(X) 

Gives the equivalent character string of arithmetic 
expression X. 

CEN(X) 

Gives the centigrade (Celsius) equivalent of X degrees 
Fahrenheit. 

FAH(X) 

Gives the Fahrenheit equivalent of X degrees centigrade 
(Celsius). 

NUM(C) 

Gives the arithmetic value of character string C. 

ARRAY/MATRIX FUNCTIONS 

Several BASIC functions allow you to operate on all the elements of 
an array by a single reference to the array. These functions are as 
follows: 

AIDX(A) 

Gives the indexed locations of the elements in array A 
in ascending order. 

DET(A) 

Gives the determinant of array A. 

DIDX(A) 

Gives the indexed locations of the elements in array A 
in descending order. 

(A)=IDN 

Gives the identity matrix of array A. 

INV(A) 

Gives the inverse of matrix A. 

PRD(A) 

Gives the product of all the elements of array A. 

SUM(A) 

Gives the sum of the elements of array A. 

TRN{A) 

Gives the transpose matrix of array A. 
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RECORD FILE FUNCTIONS 


BASIC provides three functions that allow you to inquire about 
record-oriented file status where C='FL0-FL9'. These functions are: 

KLN(C) Gives the length (in bytes) of the key field in file C. 

KPS(C) Gives the beginning position of the key field in file C. 

RLN(C) Gives the last record length for file C. 

TRIGONOMETRIC FUNCTIONS 

BASIC has functions that automatically perform trigonometric 
operations for you. Just substitute your own variable or expression 
where the variable X appears in the following list: 

SIN(X) Gives the sine of X radians. 

COS(X) Gives the cosine of X radians. 

TAN(X) Gives the tangent of X radians. 

COT(X) Gives the cotangent of X radians. 

SEC(X) Gives the secant of X radians. 

CSC(X) Gives the cosecant of X radians. 

ASN(X) Gives the arc sine (in radians) of X. 

ACS(X) Gives the arc cosine (in radians) of X. 

ATN(X) Gives the arc tangent (in radians) of X. 

HCS(X) Gives the hyperbolic cosine of the real number X. 

HSN(X) Gives the hyperbolic sine of the real number X. 

HTN(X) Gives the hyperbolic tangent of the real number X. 
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These functions deal in radians. If your program measures angles in 
degrees instead of radians, combine the RAD or DEG functions with 
these functions to keep the results in degrees. For example, to find 
the sine of D degrees, you can use this statement: 

0040 LET S=SIN(RAD(D)) 

Or to find the arc sine of X in degrees instead of radians, you can use 
this statement: 

0070 LET A=DEG(ASN{X)) 


LOGARITHMS AND EXPONENTS 


BASIC also has functions that automatically take logarithms and 
calculate exponents for you: 


EXP(X) Gives the natural exponent of X (e x ). 

LGT(X) Gives the logarithm of X to the base 10. 

LOG(X) Gives the logarithm of X to the base e. 

LTW(X) Gives the logarithm of X to the base 2. 


OTHER FUNCTIONS 


MAX(X 1f . . .) Gives the maximum value of the character or 
numeric scalars X r . . . (scalars must be all 
character or all numeric). 


MINfX^ . . .) Gives the minimum value of the character or numeric 
scalars X r . . . (scalars must be all character or 
numeric). 
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Chapter 12. If You Have Trouble 


This chapter discusses some common problems and errors that you 
may encounter when you write your BASIC programs. 


FORGETTING TO SAVE CORRECTED PROGRAMS 

Problem: You've written a program and it doesn't work; so you go 
back and make corrections to it. The next day you run the program 
and you get the same incorrect results. 

What To Do: You probably forgot to save the corrected version of the 
program. Correct the program again, then save the new version of the 
program. If you forget to save an original program, you must reenter 
the entire program. 


ENDLESS LOOPS OR OUTPUT 

Problem: Your program is executing a loop and you didn't include any 
way to end the loop in the program. (Yoifcmay suspect something is 
wrong if you are waiting a long time for results and nothing seems to 
be happening.) Or you might be getting large amounts of output that 
you don't want. It doesn't have to go on forever. 

What to Do: Press ATTN. Processing will stop immediately after 
execution of the current statement. If the problem is with a loop, list 
the program and insert a statement to end the loop when you've 
processed enough data. Enter GO or press EXECUTE to continue. 


NUMBERS ARE NOT WHAT THEY SEEM TO BE 

Problem: You are puzzled because you know a number should be a 
whole number, like 1, and the system prints out an answer as a 
decimal number, like .999999. Or else you test two numbers you think 
are equal and the system says they are not. Or you add a table of 
numbers across the rows and down the columns and then compare 
the grand totals you derive both ways and the totals do not match. 

Yet you can't find anything wrong with your program. 
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What Happened: This problem occurred because the system sees 
numbers in a different way than we do. Internally, it translates the 
numbers you enter into a specialized form that it can deal with, and, in 
the translation, the number is often changed slightly. It may be 
changed because the system rounds it off, or it may be changed 
because the system can only approximate some numbers that we think 
of as concrete and whole. Consider this: You are adding 1/3 + 1/3 + 

1 /3. You know the answer is 1. But if you had to use only decimal 
notation, you would have to add .33333 + .33333 + .33333 and your 
answer would be .99999 no matter how long you made the strings of 
3s. The system suffers from this kind of limitation. It knows how to 
represent numbers in very few ways, so it can't change its viewpoint 
to suit the problem. There's nothing much you can do about this 
except learn to interpret the system answers as approximate. 
Fortunately, the approximation is generally extremely close to the real 
answer, and in many cases, you're not aware of any difference at all. 
Think of it as evidence of the human brain's superiority over the 
system; human beings can be flexible. 

There are some programming techniques that can sometimes be used 
to circumvent this problem. If a PRINT statement seems to be giving 
you trouble, try substituting a PRINT USING and image combination to 
suppress extraneous digits or force an integer value when you might 
be getting an exponential value. 

If an arithmetic expression is not yielding expected results, see if it 
combines both multiplication and division operations; the problem 
usually arises if division precedes multiplication in an expression 
evaluation. Try to multiply first and divide second (provided you can 
do so without changing the meaning of the expression) and you 
should get better results. For example, if we changed 
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to 


0 04-0 A »• P*I/iO0 


in the interest example in Chapter 4 (see Loops Within Loops), we 
would get the integer results we would expect to get and not the odd 
decimal numbers that we had been getting. 
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HOW CAN A VAGUE IDEA BECOME A PROGRAM? 


First decide on your ultimate goal, then simplify it. Pick a goal that's 
less ambitious and more realistic. Draw a picture, find the output lines 
generated by the computer; they become the PRINT statements in 
your program. Find the lines typed by the human; they become the 
INPUT statements. Write the PRINT and INPUT statements on paper, 
with a pencil, and leave blank lines between them. Fill in the blanks 
later by asking yourself how you'd get the answer if you didn't have a 
computer. 

• Would you use a mathematical formula? 

Get it into your program, but remember that the left side of the 
equation must have just one variable and that BASIC executes 
according to the rule of hierarchy. 

• Would you use a memorized list, such as English-French dictionary, 
the population of each state, or the weight of each chemical 
element? 

That list becomes your data and you need to read it. If you'll use 
the list more than once, you may restore or use subscripts. 

• Would your reasoning repeat? 

If you know how often to repeat, say FOR NEXT. If you are not 
sure how often, say GO TO or IF THEN. If the repetition occurs 
only after several other activities have intervened, call the repeated 
part a subroutine, put it at the end of your program, and say 
GOSUB. 

• Would you choose among several alternatives? 

Say IF THEN. To make the computer choose arbitrarily, say IF RND 
< .5 THEN_ 

• Would you compare two things (A and B)? 

Say IF A=B THEN_ 

Trim your program. Skim through it and eliminate any lines that are 
silly, such as a GOTO that goes to the next line, a GOTO that goes to 
STOP, a GOTO that goes to a GOTO, a THEN that goes to the next 
line, a THEN that just skips to a GOTO, or an IF followed by an IF that 
has the opposite condition. 
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Chapter 13. Exercises 


This chapter contains exercises for you to study and enter with your 
system if you wish. The exercises are arranged by chapter, and give 
you practice with the statements that you learn in each chapter. Do 
only the exercises for the chapter you have just studied; exercises for 
more advanced chapters contain statements you haven't covered yet. 

After you finish the book, you can look back at exercises from earlier 
chapters and see that with more advanced BASIC techniques, some of 
the earlier programs can be modified and made more efficient. 

Feel free to make up examples of your own. Practice is the best way 
to become a proficient programmer. Have fun! If you need to make 
corrections to your own examples, refer to Chapter 6. 

Note: Not all chapters are represented in this exercise section. This is 
because some chapters do not contain material for which exercises are 
relevant. 
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Exercises for Chapter 2. BASIC Arithmetic 


Problem 1 

Find the length of side C in this right triangle: 




\ . p 


4 .% 

The Program \ > 

0010 A = 17 
0020 B=ll 

0 0 3 0 C :::: S Q R < A f 2 -*• B f 2 ) 

0 04-0 PRINT C 
0050 STOP 

Problem 2 

Last season, Slugs Hoolihan, the baseball player, was up at bat 521 
times. He made 130 base hits—15 home runs, 6 triples, 21 doubles and 
the rest singles. What is Slugs' batting average? What about his 
slugging average? 

Note: The batting average is the number of hits divided by the 
number of times at bat; the slugging average is: 

(home runs*4)+(triples*3)+(doubles*2)+(singles*1) 
number of times at bat 

The Program 


0 01 0 

REN FIND AND 

PRINT 

H I B A 1 1 1N 0 A V L R A 0 

0 020 

A=130/521 



0 030 

PRINT A 



0 0 4- 0 

REN FIND AND 

P PINT 

THE SLUGGING AVERAGE 

0 0 5 0 

SI™15*4-6i<-3 f 

1 * 2 * (: 

.30-18 -6-21) 

0 0 6 0 

S=81/521 



0 0 7 0 

PRINT 8 



0 0 8 0 

STOP 




4 


C 
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Problem 3 


Here are the results of an election: 


Candidate 

Adams 

Biller 

Campbell 


District 1 

4106 

3729 

4002 


District 2 

2890 

3515 

3131 


District 3 

2981 

2493 

3012 


Figure out the total vote and what percent of the total each candidate 
received. 


The Program 


0 01 0 

A $ -- ’ ADAMS 

1 

0 0 2 0 

A = 4-1 06 + 28 

09+2981 

0 030 

3B $ ' BIL. L E". 

R ' 

0 04-0 

B=3729+35 

15 + 24-93 

n n c ; n 

C $- :: ’ CAMPB 

ELL 1 

0 0 6 0 

C4- 0 0 2+3131 + 3 012 

0 0 7 0 

T=A+B+C 


0 0 8 0 

a i -- a / r 


0 0 9 0 

B1. = B/T 


0 1 0 0 

C1=C/T 


0 110 

REM PRINT 

TOTAL VO 1 

0 1 2 0 

PRINT T 


0 13 0 

PRINT A$, 

A ■ A .1. 

014-0 

PRINT B$, 

B, B1 

0 15 0 

PRINT C$■ 

C, Cl 
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Problem 4 


You are shopping for an air conditioner. You need one between 5000 
and 6000 BTUs. You want to find the one with the highest energy 
efficiency ratio (EER) because it will be the most economical to 
operate. The EER is defined as: 

number of BTUs 
number of watts 

Here are the air conditioners you are considering: 


A 

5000 BTUs 

820 watts 

B 

6000 BTUs 

910 watts 

C 

5500 BTUs 

850 watts 


Which model should you buy? 
The Program 

0010 A=5000/820 
0 020 B~“6000/910 
0 030 C3300/850 
0 01+0 PRINT A, EM: 
0050 STOP 


Problem 5 

You are renting a car to make a one-day trip of about 275 miles. Here 
are the rates for three companies: 

Acme Rent-a-Car $17 a day 17$ a mile (includes gas) 

Better Deals Rentals $12 a day 22$ a mile (includes gas) 

Cheap Car $8 a day 10$ a mile (not including gas) 


o 

L- 


>4.../ 


4 > 


Figure the gas at 14 MPG and 58$ a gallon. Which car is the best 
deal? 


The Program 


,i f" 

< > 


0 0 1 0 

A i> ' At 

;ME' 

0 020 

A=17+. 

17*275 

0 030 

PRINT 

A $} A 

0 0'+ 0 

=’BE 

LITER DEALS’ 

0 0 5 0 

B=12+ , 

, 22*25 

0 060 

PRINT 

B $.. B 

0 0 70 

CM ' Cl 

•IEAP CAR' 

0 080 

C=8+.1 

. *275 + (275/1 '+>* . 5 

0 090 

PRINT 

c$.. C 

n :i n ft 

STOP 





\ . ;■ 
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Problem 6 


Equations of this form: 

AX 2 +BX+C=0 

(quadratic equations) can be solved for the two values of X with these 
formulas: 

xy _-B+\ / B 2 -4AC W _-BVB 2 -4AC 

a -rr A 

2A 2A 


Write a program for these formulas. Using it, solve this equation for 
X: 


6X 2 -29X+28=0 


The Program 


0 0.1.0 

A “6 


0 020 

0 030 

B---29 

028 


0 0 4 0 

XI. s:: < -B+-8QR 1 

(Bt2~«+*A*C) ) / <2* A ) 

0 0 5 0 

X2~ ( -B-8QR < 

( B12 •••• 4- *• A •* C ) ) / ( 2 A ) 

0 06 0 

PRINT XL X: 

*) 

0 0 7 0 

STOP 



Try it for other equations by changing the values of A, B, and C. Note 
that this program will not work for some values of A, B, and C. Try it 
for X 2 +X+1=0, or A=1, B=1, C=1. The computer will tell you why it 
doesn't work, if you don't already know. 
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Exercises for Chapter 4. How to Write a Program 


Problem 1 

Dr. Lemming sees an average of 60 patients a week in his office. 
Before he sees each patient, he washes his hands with a liquid 
antiseptic soap that he buys in gallon jugs. Each time he washes his 
hands, he uses a teaspoon of soap (there are 6 teaspoons in an 
ounce). How many weeks will the gallon last? If he also uses a half 
ounce of hand cream at the end of each day, seven days a week, to 
keep his hands from chapping from all the washing, how much hand 
cream does he use up with each gallon of soap? 

The Program 



rf \ 


0010 REM FIGURE THE TOTAL NUMBER OF WASHES IN A GALLON 
0 0 20 T~32*M-*6 

0030 REM DIVIDE BY 60 WASHES A WEEK TO FIND NUMBER OF WEEKS 
0 () I* 0 W :::: T/6 0 
0030 PRINT W 

0060 REM FIND HOW MUCH HAND CREAM NEEDED IN W WEEKS 
0 0 70 O , 5*7 *W 
0080 PRINT C 
0090 STOP 


Note: The calculation in line 20 is based on six teaspoons an ounce, 
32 ounces a quart, 4 quarts a gallon. The calculation in line 70 is 
based on half an ounce a day, seven days a week, for W weeks. 


V..v 


\ 
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Problem 2 


Figure out the earned-run average for a baseball pitcher who pitched 
187 innings and allowed 61 earned runs. An earned run average is 
calculated by dividing the number of earned runs by the number of 
innings pitched, and then multiplying the result by 9 (for 9 innings a 
game). 

The Program 


0 0:1.0 REM SUPPLY THE DATA 
0020 E=6i 
0030 1=187 

0 0 4-0 REM FIND THE AVERAGE AND PRINT IT 
0 0 50 El. :::: E/I 
0060 A-El*9 
0070 PRINT A 
0 0 8 0 S T 0 P 


Try this program for a pitcher who pitched four innings and allowed 
eight runs; a pitcher who pitched 20-1/3 innings and allowed four runs 
(remember that 20-1/3 must be entered as 61/3); try your own 
numbers. 
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Problem 3 


Find out how much sod Mr. Harris has to buy to cover his 70x28 foot 
lawn. If sod is 11.5<t a square foot, how much will it cost? 

The Program 

0010 REM FIND THE 
0020 F=70*28 
0030 REM FIND THE 
0 04-0 OF* , 115 
0 050 PRINT C.. F 
0060 STOP 

Problem 4 

You are supplying hamburgers for a party. There will be 17 adults and 
14 children. Each hamburger will have three ounces of meat in it. 

Kids can eat two hamburgers each, adults three. How much meat do 
you have to buy? 

The Program 


i NUMBER OF SQUARE FEET 
• COST 


0 

010 

R 

EM HOW 

MANY 

0 

0 20 

H 

«17*3+1 

1.4*2 

0 

03 0 

R 

EM HOW 

MANY 

0 

04-0 

0 

ss 3*H 


0 

050 

R 

EM HOW 

MANY 

0 

0 60 

P 

«Q/16 


0 

070 

P 

RINT P. 

. H 

0 

080 

c 

TOP 



HAMBURGERS TOTAL? 
OUNCES IS THAT? 
POUNDS? 


Problem 5 


You are arranging a charter flight. The plane costs $10,000 to hire. 
There are 117 seats on it. You want to add on a 5% surcharge for 
profit and a $2.50 per person airport tax. How much is each ticket? 


0 0 1 0 

REM FIND THE lU 

5>SE COST OF EACH 

c: 

0 020 

S~ 10000/117 



0 0 3 0 

REM ADD ON THE 

PROFIT AND THE 

TP 

0 04-0 

T~S+, 05 * 5 + 2.5 



0 050 

PRINT T 



0 060 

STOP 
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Exercises for Branching (Chapter 4) 



Problem 1 

The Smiths and the Hoopers live next door to each other. They are 
both driving to Cape Cod, which is 350 miles away, for a vacation. 
The Smiths leave at 8 a.m. and average 48 miles an hour. The 
Hoopers leave at 10:30 a.m. and they drive at an average of 52 miles 
an hour. Who gets there first? 


The Program 




0 0 1 0 

S"" 35 0/4 8 



0 020 

H "-350/52 



0 030 

IF S<H+2.5 GOTO 0090 



0 0 M0 

IF S=H+2.5 GOTO 0:1.20 



0 050 

REM HOOPERS GET THERE 

FI ROT 


0 0 6 0 

PRINT ‘THE HOOPERS GET 

THERE 

“ IR S T 

0 070 

GOTO 0:1.3 0 



0 0 8 0 

REM THE SMITHS GET THE 

RE FIRS 

T 

0 090 

PRINT 'THE SMITHS GET 

THERE F 

E RST ' 

0 1 0 0 

GOTO 0:1.30 



0 11 0 

REM THEY ARRIVE AT THE 

SAME T 

[ME 

0 . 1 . 2 0 

PRINT ‘THE SMITHS AND 

HOOPERS 

AR RI 

0 :l. 3 0 

STOP 




TOGETHER 
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Problem 2 


You are looking for an apartment. You find two, one on your own, 
and one through an agent. You like them equally, so your choice will 
be based strictly on cost. Here are the details: 

Apartment 1: The rent is $225 a month and does not include utilities. 
You figure $15 a month for gas and electric. There is a two-year 
lease. 

Apartment 2: The rent is $230 a month. It includes gas and electricity. 
You must pay the agent 10% of a year's rent. The lease is for two 
years. 

Which should you take? What will be your average monthly cost over 
the two years? 


The Program 


0 0:1.0 Al=24-*<225+15> 

0 0 2 0 A 22 4- * 2 3 0 + . 1 * ( 12 # 2 3 0 ) 

0 0 3 0 IF A1 < A 2 G 0 T 0 0 0 8 0 

0040 REM APARTMENT 2 IS CHEAPER 

0 050 M :::: A2/24- 

0 0 6 0 P RIN T ‘ A P A R T M E N T 2 C PI E A P E R .. M 0 N T H L Y C 0 S T 

0070 GOTO 0130 

0 0SO M=Al/24- 

0 090 IF A2 = A1 GOTO 014-0 

0100 REM APARTMENT 1 IS CHEAPER 

0110 PRINT APARTMENT 1 CHEAPER .• MONTHLY COST I 

0120 GOTO 0150 

0130 REM THEY COST THE SAME 

0 14- 0 P RIN T ‘ T H E Y B 0 T H H A V E A M 0 N T H L Y C 0 S T 0 F : * 
0150 PRINT M 
0160 STOP 
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Problem 3 


Mr. and Mrs. Richards are figuring out their income tax and they are 
trying to decide whether to file joint or separate returns. Mr. Richards' 
taxable income is $8,750. Mrs. Richards' taxable income is $10,312. 

For separate returns, this is the schedule: 

taxable income $8,000-10,000, pay $1,630 + 28% of amount over 

$ 8,000 

taxable income $10,000-12,000 pay $2,190 + 32% of amount over 

$ 10,000 

For a joint return, this is the schedule: 

taxable income $16,000-20,000, pay $3,260 + 28% of amount over 

$16,000 

The Program 


0 01 0 

RE 

M F 

IGURE 

cos 

T 

OF SEPARATE RETURNS 

0 0 2 0 

11 

••=87 

5 0 




0 0 3 0 

12 

== 10 

312 




0 01+ 0 

T1 

:::: 1 6 

3 0 + . 2 

8 * (I 

1 

-ft It It i! > 

0 0 5 0 

T 2 

==21 

9 0 + . 3 

2* (I 

9 

•••• 10 0 0 0 ) 

0 0 6 0 

* jl 

= T1 

+ T 2 




0 o 7 0 

RE 

M F 

IGURE 

cos 

T 

OF JOINT RETURN 

n n & ft 

13 

= 11 

+12 




0 0 9 0 

T4 

:::: -.5 ,<!. 

6 0 + , 2 

ft ¥: ( I 


-• 1 6 0 0 0 ) 

0 1 0 0 

RE 

H S 

EE WHICH 

I 

S CHEAPER 

0 J. 1 0 

1F 

T 3 

<T4 GOTO 

o 

14 0 

0 12 0 

PRINT 

! COS 

T OF 


JOINT RETURN IS LESS 

ft 1 3 ft 

GOTO 

0 15 0 




01 4 0 

PR 

INT 

1 COS 

T OF 


SEPARATE RETURNS IS 

0 15 0 

PR 

INT 

'JOINT R 

E 

TURN COSTS ’ 

0 : 1.6 0 

PR 

INT 

T4 




0170 

PRINT 

‘ SEP 

A RATE 

RETURNS COST’ 

n i ft ii 

PRINT 

T3 




0190 

STOP 
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Exercises for Loops (Chapter 4) 


Problem 1 



In 1960, the population of Alpha City was 753,580. Its growth rate 
was 3.7% a year. In 1960, the population of Betaville was 529,430. Its 

growth rate was 5.1 % a year. If the growth rates keep steady, when if Y 

can you expect the population of Betaville to surpass that of Alpha 

City? 


The Program 


0 010 

Y~0 

0 020 

A ~ : 753580 

0 030 

B=529430 

0 0 MO 

Y=Y+1 

0 050 

A-A+.037#A 

0 0 6 0 

B=B+.051 #B 

0 070 

IF B<A GOTO 0 

0 0 8 0 

Y=Y+1960 

0 090 

PRINT 1 BETAVI 

0100 

PRINT Y 

0 11 0 

STOP 


0 i|. o 
LLE 


ILL 


MORE PEOPLE THAN ALPHA CITY IN 


f 


Note : Line 10 assigns an initial value of zero to variable Y. As we 
mentioned in the text, this line is not really necessary; the system 

gives an initial value of zero to all numeric variables before it begins to ^ 

execute any BASIC program. ^ y 


Problem 2 

If you make a sum of integers like this: 

1+2+3+4+5+6+7+8 . . . 

how many numbers can you add before you exceed 1000? 
The Program 


0010 N = N + 1 
0020 S=S+N 

0 030 IF 8< 10 0 0 GOTO 0 010 

0 0 <10 P RIN T ' Y 0 U E X C E E D 10 0 0 W H E N Y 0IJ "(' R Y T 0 A D D T H E N U M B E R : 
0050 PRINT N 
0060 STOP 


c 

o 
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Problem 3 


Make a sales-tax reference chart for yourself. The sales tax in your 
state is 7%, and you want your chart to go from $0 to $10 in steps of 
100 . 

The Program 

0 0:1.0 FOR X -0 TO 10 STEP . 1 
0020 PRINT X,.Q7*X 
0030 NEXT X 
0 04-0 STOP 

Problem 4 

A bank teller decides to do an experiment to liven up his day. Every 
time a customer asks for change of a dollar, he makes change with a 
different combination of coins. Using half dollars, quarters, dimes, 
nickels, and pennies, how many customers can he give change to 
before he has to repeat a combination? Print out the combination and 
the total number of combinations. 


The Program 


0 0 10 

OO 





0 020 

PRINT ' HALVES’ , * QUARTERS * , 

'DIMES' 

, 'NICKELS' 

' PENNIE 

0 0 3 0 

FOR P-0 

TO 100 STEP 5 




0 0 M-0 

FOR N-0 

TO 20 




0 050 

FOR D-0 

TO 10 




0 060 

FOR 0-0 

TO 4 




0 0 7 0 

FOR H-0 

TO 2 




0 080 

S - H •><• 5 0 +• Q * 2 5 + D * 10 + N * 5 P 




0 09 0 

IF Ss*l 0 0 

GOTO 120 




0 :l. 0 0 

OC+1 





01 . 1 . 0 

PRINT H, 

Q , D , N , ! :> 




0 : 1.20 

NEXT H 





0130 

NEXT Q 





0140 

NEXT D 





0150 

NEXT N 





0160 

NEXT P 





0 17 0 

PRINT 'THE TOTAL NUMBER OF 

COMBINATIONS IS : 


018 0 

PRINT C 





0190 

STOP 
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Because of the way the loops are nested in this program, it is 
time-consuming to execute. A better and faster method is shown in 
the following program. 



0 0 10 

PRINT 1 

H 

Q D N P 1 


0 020 

FOR H=0 

TO 

'? 


0 030 

FOR Q™0 

TO 

4-2*H 


0 0 '•!• 0 

FOR D : ~0 

TO 

10“5»H-2,5*Q 

{ . 

0 050 

FOR N-0 

TO 

2 0 -10 x H •• 5 «• Q 2 * D 

\ > 

0 0 6 0 

P=100-5 

0 * H •••• 

25*Q~10*D~5*N 


0 07 0 

C=C + 1 




0 080 

PRINT FLP,H 

; Q; d n ; p 


0 0 ? 0 

NEXT N 




0 1 0 0 

NEXT D 




0 :L 1 0 

NEXT Q 



1 > 

0 1 2 0 

NEXT H 




0 13 0 

PRINT F 

-Pi ' 

TOTAL WAYS =’C 






f 


'O 
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Exercises for Chapter 5. Other Ways to Put Values into Programs 


Problem 1 

Make a general program for figuring out batting averages and slugging 
averages. When you run the program, you will have to enter the 
ballplayer's name (N$), the number of times he was up to bat (B), the 
number of home runs (R), triples (T), doubles (D), and singles (S). The 
program will compute the averages and will print the results. 

The Program 


0 0 1 0 

I PUT 

N $ 


0 0 2 0 

:i: put 

B , R , T , D , S 


0 0 30 

0 0 4 0 

IT••••• R+T 
A :::: H/B 

4-30 4 S 


0 0 5 0 

PRINT 

’THESE ARE THE ST 

AT 1ST 

0 0 6 0 

PRINT 

N $ 


0 0 7 0 

P RI NT 

’TOTAL BATTING AV 

ERASE 

0 080 

PRINT 

A 


0 0 9 0 

A 2 < 4 

¥: R f 3 * T f 2 D *- S > / B 


01 . 0 0 

PRINT 

‘ SLUGGING AVERAGE 

IS: ’ 

011 0 
0120 

PRINT 

STOP 

A 2 



Problem 2 


You are giving typing tests to applicants for typing jobs. The test is 
five minutes long. After counting the number of words the applicant 
typed in five minutes, you subtract 10 words for each error, and then 
you divide the result by 5. The minimum passing score is 50 words 
per minute, but if the score is between 45 and 50, you will let the 
applicant take the test one more time. 


Write a general program that will let you type in the applicant's name, 
the total words, and the number of errors. The program should then 
compute the score and tell you if the applicant passed or not, or 
whether the applicant should be allowed to take the test again. 
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The Program 


0010 PRINT ‘ENTER NAME, NUMBER OF WORDS, NUMBER OF MISTAKES' 
0020 INPUT NT,W,M 
0030 S=<W-10*M)/5 
0 0 4- 0 P RIN T ‘ T E S T RES U L T S F 0 R : ‘ 

0 050 PRINT NT- 

0060 PRINT ‘WORDS PER MINUTE TYPED* 

0070 PRINT S 

0000 IF 8<45 GOTO 0120 

0 090 IF 8<50 GOTO 0140 

0100 PRINT ‘APPLICANT PASSED TEST* 

0110 GOTO 0210 

0120 PRINT ‘APPLICANT DID NOT PASS TEST* 

0130 GOTO 0210 

0140 PRINT ‘HAS APPLICANT ALREADY TAKEN TEST? ENTER YES OR NO* 
0150 INPUT AT 

0160 IF AT-- * YES‘ GOTO 0190 

0170 PRINT ‘LET APPLICANT TRY AGAIN* 

0180 GOTO 0210 

0190 PRINT ‘APPLICANT HAS HAD TW0<2> TRIES* 

0200 GOTO 0120 
0210 STOP 


Notes: 

1. In line 150, we asked for a word instead of a number as input. In 
line 160, we tested the word. Character variables are just as valid 
as numeric variables in INPUT statements and IF statements. Just 
remember to name a character variable with a letter followed by a 
dollar sign, and to use quotes when you are referring to the value 
of the character variable. 

2. Notice the way the testing in lines 80 and 90 is done. If a score is 
below 45, we get rid of it right away (line 80). The next test (line 
90) only has to test if the score is below 50 to find scores between 
45 and 50, since everything below 45 has already been eliminated. 
After the two tests, we know that any scores surviving to line 100 
are above 50, so we don't have to test them again. 








Exercise for Chapter 8. Setting Up Your Own Format-PRINT USING 
and Image Statements 


o o :i. o 
0 0 20 
0 030 
0 040 
0 050 
0 060 
0 070 
0 080 
0 090 
0 :i. 0 0 
011.0 
0120 
0 . 1.30 
01.40 
01.50 
0 . 1.60 
0 . 1 . 7 0 
01.80 
01.90 
020 0 
021.0 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
030 0 
0310 


You are a teacher and you want to write a program that will figure out 
and print a report of grades for each student at the end of the term. 
There have been three exams during the term, and a final exam. The 
grade for the term will be a letter grade based on an average of the 
exam scores according to this table: 


90 and over A 

80-below 90 > B 

70-below 80 J C 

below 70 D 


(passing) 

(not passing) 


In computing the average, the final exam has twice as much weight as 
any of the other three exams. The printed report is meant for the 
individual student, not you or the office, so it should be intelligible to 
him, and it should be personalized. 


The Program 


PRINT 'HAVE ALL STUDENTS BEEN PROCESSED? ENTER YES OR NO* 
INPUT A $ 

IF A$ :::: ' YES ' GOTO 31.0 

PRINT 'ENTER NAME OF STUDENT' 

INPUT m 

PRINT 'ENTER GRADES FOR EXAMS' 

INPUT E1,E2,E3,F 
A™ (El. +E2+E3+2*F>/5 

IF A<70 GOTO 1.80 
IF A<80 GOTO 1.6 0 
IF A<90 GOTO 140 
G$= :: ' A 
GOTO 190 
G$ ;::: ' B ' 

GOTO 1.9 0 
G$ ;::: ’ C ' 

GOTO 1.90 
G$™'D' 


PRINT 

FLI 

>, ‘FINAL 

GRADES FOR :',N$ 




PRINT 

FL! 

>, * YOUR 

GRADE FOR THE FIRST 

EXAM 

was : 

' , El. 

PRINT 

FLI 

», ‘ YOUR 

GRADE FOR THE SECOND 

EXAM 

was : 

' , E2 

PRINT 

FL! 

>, ' YOUR 

GRADE FOR THE THIRD 

EXAM 

was : 

' , E3 

PRINT 

FLI 

>, 'YOUR 

GRADE FOR THE FINAL 

WAS ; 

• , F 


P PINT 

us: 

!NG 250, 

FLP,A,G$ 





I YOUR FINAL AVERAGE IS ###.## AND YOUR FINAL GRADE IS tt 
IF G$ :;:: ' D ' GOTO 290 

PRINT FLP,'CONGRATULATIONS ON PASSING THIS COURSE!' 

GOTO 300 

PRINT FLP, ‘ YOU DID NOT PASS. MAKE AN APPOINTMENT TO SEE Ml! 

GOTO 1.0 

STOP 
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Exercise for Chapter 10. Arrays 


Here is the 1972 Internal Revenue schedule for single taxpayers. Write 
a program using this schedule so that a clerk can enter any amount of 
taxable income and have the tax figured automatically. 



Schedule X-Single Taxpayers Not Qualifying for Rates in 
Schedule Y or Z 


If the 
amount on 
line 55 of 
form 1040 
is oxer: 

But not 

oxer : 

pay: 

plus: 

of the 
amount 

oxer: 

$ — 

$ 

500 

$ 

00 

14 % 

$ 

000 

$ 500 

$ 

1000 

$ 

70 

15 % 

$ 

500 

$ 1000 

$ 

1500 

$ 

145 

16 % 

$ 

1000 

$ 1500 

$ 

2000 

$ 

225 

17 % 

$ 

1500 

$ 2000 

$ 

4000 

$ 

310 

19 % 

$ 

2000 

$ 4000 

$ 

6000 

$ 

690 

21 % 

$ 

4000 

$ 6000 

$ 

8000 

$ 

1110 

24 % 

$ 

6000 

$ 8000 

$ 

10,000 

$ 

1590 

25 % 

$ 

8000 

$ 10,000 

$ 

12,000 

$ 

2090 

27 % 

$ 

10,000 

$ 12,000 

$ 

14,000 

$ 

2630 

29 % 

$ 

12,000 

$ 14,000 

$ 

16,000 

$ 

3210 

31 % 

$ 

14,000 

$ 16,000 

$ 

18,000 

$ 

3830 

34 % 

$ 

16,000 

$ 18,000 

$ 

20,000 

$ 

4510 

36 % 

$ 

18,000 

$ 20,000 

$ 

22,000 

$ 

5230 

38 % 

$ 

20,000 

$ 22,000 

$ 

26,000 

$ 

5990 

40 % 

$ 

22,000 

$ 26,000 

$ 

32,000 

$ 

7590 

45 % 

$ 

26,000 

$ 32,000 

$ 

38,000 

$ 

10,290 

50 % 

$ 

32,000 

$ 38,000 

$ 

44,000 

$ 

13,290 

55 % 

$ 

38,000 

$ 44,000 

$ 

50,000 

$ 

16,590 

60 % 

$ 

44,000 

$ 50,000 

$ 

60,000 

$ 

20,190 

62 % 

$ 

50,000 

$ 60,000 

$ 

70,000 

$ 

26,390 

64 % 

$ 

60,000 

$ 70,000 

$ 

80,000 

$ 

32,790 

66 % 

$ 

70,000 

$ 80,000 

$ 

90,000 

$ 

39,390 

68 % 

$ 

80,000 

$ 90,000 

$ 

100,000 

$ 

46,190 

69 % 

$ 

90,000 

$ 100,000 



$ 

53,090 

70 % 

$ 

100,000 


A B CD 



To write this program, we are going to use four arrays: 

A: Maximum amount of income in each category 
B: Minimum tax for that bracket 
C: Percent at which excess is taxed 
D: Amount over column 

We don't need to make an array for the minimum amount of income 
in each income bracket, because we will not use it; instead, we will 
test to see what bracket the income belongs to in the same way we 
tested the typing scores in problem 2 from Chapter 5. Also, column D 
is exactly the same as column A except each element is bumped by 
one place. 
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The columns of the schedule are labeled to show which column 
corresponds to which array. 


The Program 


c 

c 



<"• 0 'i o A H o!'. t 1 1 ■ i l r : ';; 

0030 HAT READ A 
0040 DAT A 500,1000,15C0, 
0 03 0 DA i A .'16 0 0 0 . . 1 . 8 0 9 0 . 2 0 

0 0 6 U BATa 6 0 (; 0 9 0 0 0 2 

U 0 / 0 H A i H 1::. A L B 

!< ii H \ I.!:'"! i f ) li : < 0 , 

0 09 9 DA "I A 4S:i. 0,223 0,5 


DATA 4 


0 0 0 , 12 0 0 0 , 1 4 0 0 0 
380 0 0 : 44 0 0 0,500 0 0 




4 a 


01 4 0 B ( 1 ) 
015 0 F; 3 R 
0 1 6 ii D (I 



0250 NEXT 1 
!; 2 6 0 RE M C 0 H P 2 


0 3 0 7 0 j 9 0 
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Here are two square matrices: 


14 -2 7 


-1 -3 -5 

10 0 -8 


6 24 38 

13 27 4 


5 2 9 


Write a program that prints their sum, difference, product, and 
inverses (if the inverses exist). 

The Program 



0 0 1 0 

I> 

B (3 

,3),C <3,3) 




0 020 

MAT READ A, 

B 





0 03 0 

DATA 14,-2, 

'7 , 1 

0,0,-8,13,27,4 




0 04 0 

DATA -1,-3, 

-5, 

6 , 24 , 38 , 5 , 2 , 9 




0 050 

PRINT FLP,‘ 

THE 

SE ARE THE MATRICES 1 

•OR 

THE 

COMPUTATIONS’ 

0 0 6 0 

MAT PRINT {■■ 

, B 





0 0 7 o 

MAT C” : A*-B 






0 08 0 

PRINT FLP,’ 

THE 

IR SUM IS* 




0 09 0 

MAT PRINT P 

LP, 

C 




0 1 0 0 

MAT C-A-B 






0 :i. :i. 0 

PRINT FLP,' 

THE 

IR DIFFERENCE IS' 




o :i. 2 o 

MAT PRINT F 

LP, 

C 




0.1.3 0 

MAT C •• ■ •• •• A-x-B 






o :i. 4 o 

PRINT FLP, 1 

THE 

IR MATRIX PRODUCT IS 




01.50 

MAT PRINT F 

LP, 

C 




01.60 

IF DET ( A ) :::: 0 

GOTO 250 




0 1.7 0 

MAT C- :: :t: NV < A ) 





0 1.80 

PRINT FLP,‘ 

THE 

INVERSE OF A IS* 




0 1.9 0 

MAT PRINT F 

LP, 

C 




02 0 0 

IF DET < B)-0 

GOTO 270 




0 21. 0 

MAT C-INV< B 

) 





0 22 0 

PRINT FLP,' 

THE 

INVERSE OF B IS’ 




0 230 

MAT PRINT F 

LP, 

C 




0 24 0 

GOTO 280 






0 25 0 

PRINT FLP,' 

THE 

DETERMINANT OF A IS 

0 , 

THE! 

i E IS NO INVERS 

0 26 0 

GOTO 200 






027 0 

PRINT FLP, ‘ 

THE 

DETERMINANT OF B IS 

0 , 

THE! 

MI IS NO INVERS 


0280 STOP 
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Exercises for Chapter 11. More Things You Can Do with BASIC 



Problem 1 



Make a chart of the values of sine and cosine of X, as X goes from 0° 
through 360° in 45° steps. 


The Program 


n n i n 

0 02 

o 

0 0 3 

o 

0 0 4 0 

fl 0 f 

n 

a n 6 

ft 



PRINT 'DEGREES *, ‘SIN’, 
FOR X~0 TO 360 STEP 4-5 
Y = RAD(X > 

i ;: ‘ RINT X .■ SIN ( Y ) .. COS < Y ) 

NEXT X 

STOP 


Problem 2 


You are going to bake a cake. The recipe calls for an 8-inch square 
pan. You only have an 8-inch round pan, and a 9-inch round pan. 
Which pan will have a surface area closest to the required one? 




The Program 


0 0:1.0 S8=8x8 
0 020 R8=«PI*<4-t2> 


0 030 

R9~&p: 

lx-(4.5 

if 2 

) 


0 0 4 0 

D:i. "SO 

- RS 




0 050 

P RINT 

* THE 

8- 

INCH 

PAN 

0 06 0 

D2 :::: S8 

•• R 9 




0 0 70 

IF D2 

■■-:[} GOTO 

:!. o o 


0 080 

PR I NT 

‘ THE 

9- 

INCH 

PAN 

0 0 9 0 

GOTO 

11 0 




o :i. o o 

PRINT 

' THE 

9- 

INCH 

PAN 

011 0 

D2-AB: 

3 (D2) 




0120 

IF D1 

<D2 GOTO 

150 


0 13 0 

PRINT 

‘ THE 

9- 

INCH 

PAN 

0 1 4 0 

GOTO : 

1 6 0 




01U 0 

PRINT 

‘ THE 

8- 

INCH 

PAN 

0 1 6 0 

STOP 






18 1 , D .1., * S Q U A R E IN C H E S 8 H A L L E R ’ 

IS 1 , 1 S Q U A R E I N C H E S S M A L L E R ' 

IS 1 , •••• D 2 , ' S 0U A RE I N C H E S BIG 0 E R 1 

IS CLOSER TO THE REQUIRED SIZE 
IS CLOSER TO THE REQUIRED SIZE 
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Problem 3 


Write a program where the system thinks of a number and you have 
to guess the number. 

The Program 



0010 PRINT 'ENTER ANY NUMBER* \ M 

0020 INPUT A 

0 030 PRINT 'GUESS THE NUMBER I THOUGHT OF IT, IS BETWEEN 1 8< 100' 

0 01+0 PRINT ' YOU HAVE 8 TRIES 
0 0 5 0 N = IN T < R N D < A ) # 1 0 0 +1) 

0 0 6 0 IF T > 8 G 0 T 0 0 19 0 ^ > 

0 0 70 T«T+1 \ #. 

0080 PRINT 'MAKE A GUESS' 

0090 INPUT G 

0 1 0 0 IF GN G 0 T 0 0 16 0 

0.U0 IF G>N GOTO 0100 

0120 PRINT 'MY NUMBER IS HIGHER* 

0130 GOTO 0060 

01M0 PRINT 'MY NUMBER IS LOWER' 

0150 GOTO 0060 

0 16 0 P RIN T ' C O N G R A T U L A i IO N S ! Y O U G U E S S E D IT ' 

0 17 0 P RIN T ' IT T O O K Y O U ' , T , ’ G U E S S E S ' 

0180 GOTO 0200 

0190 PRINT 'SORRY, YOU HAD 8 GUESSES, MY NUMBER WAS',N 

020 0 PRINT 'DO YOU WANT TO PLAY AGAIN? .l-YES, 0~=NO ‘ / - 

0210 INPUT B 4 > 

0220 IF B0 GOTO 0260 

0230 A"N 

0 2M-0 T™ 0 

0250 GOTO 0030 

0260 STOP 

Note: In line 50, RND(A) generated a random number between O and 
1. Multiplying it by 100 scaled the number between O and 99. Since 
we wanted the number to be between 1 and 100, we added 1 to the 
result. Then we applied the I NT function to extract just the integer 
part of the number. 

if *\ 

\ . ✓ 
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REMEMBER, BASIC IS A GOOD LANGUAGE TO EXPERIMENT WITH. 
THE MORE YOU EXPERIMENT, THE MORE YOU LEARN. 
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Appendix A. BASIC Statements and Commands 


A complete list of the statements and commands in the BASIC 
language that are used by your system is shown below. A brief 
description of each statement and command is included. Although all 
the statements and commands are not discussed in this manual, each 
is described in detail in the IBM 5110 BASIC Reference Manual, 

SA21-9308. 

BASIC STATEMENTS 


CHAIN 

Ends a program, then loads and 
begins executing another program. 

CLOSE 

Deactivates open stream-oriented 
files. 

CLOSE FILE 

Deactivates open record-oriented 
files. 

DATA 

Creates an internal data table of 
values. 

DEF 

Defines a function to be used in the 

program. 

DELETE FILE 

Deletes a record from a key-accessed 
file. 

DIM 

Specifies the size (dimensions) of an 
array or character variable. 

END 

Ends a program. 

EXIT 

Transfers program control if errors 
occur during input/output operations. 

FNEND 

Ends a function defined in a DEF 

statement. 

FOR 

Begins a loop. 

FORM 

Specifies the format of records in a 
file created for access by individual 
record or printed output. 
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[MAT] GET 

GOSUB 

GOTO 

IF 

Image 

[MAT] INPUT 

[LET] 

MAT 

NEXT 

ONERROR 

OPEN 

OPEN FILE 

PAUSE 

[MAT] PRINT (FLP) 

[MAT] PRINT USING (FLP) 


Assign values from a stream-oriented 
file to variables. 

Transfers program control to the 
beginning of a subroutine. 

Transfers program control to a 
specific statement. 

Transfers program control depending 
on specific conditions. 

Specifies the format of printed or 
displayed data. 

Assigns values from the keyboard to 
variables during program execution. 

Assigns values to variables. 

Assigns values to all elements of an 
array. 

Ends a loop (see FOR). 

Transfers program control when 
BASIC statement errors occur. 

Activates stream-oriented files for 
input or output. 

Activates record-oriented files for 
input, output, or both. 

Interrupts program execution. 

Displays or prints the values of 
specified variables, expressions, or 
constants. 

Displays or prints the values of 
specified variables, expressions, or 
constants in a format defined in an 
image statement or variable or FORM 
statement. 



\ ./ 
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[MAT] PUT Writes the values of specified 

variables into a tape or diskette 
stream-oriented file. 

[MAT] READ Assigns values from the internal data 

table (see DATA) to variables or array 
elements. 


[MAT] READ FILE [USING] Assigns a record from a 

record-oriented file to a variable. 


REM 

RESET [FILE] 


RESTORE 


Inserts comments or remarks in a 
program. 

Repositions a tape or diskette file to 
its beginning, end, or specified record 
position. 

Causes values in the internal data 
table (see DATA) to be assigned 
starting with the first value in the 
table. 


RETURN 

[MAT] REWRITE FILE [USING] 


Ends a subroutine or user-defined 
function. 

Rewrites a specified record in a 
record-oriented file. 


STOP Ends a program. 

USE Saves values of variables between 

two programs to be executed by a 
CHAIN statement. 


[MAT] WRITE FILE [USING] Adds a record to the end of a 

record-oriented file. 
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BASIC SYSTEM COMMANDS 


ALERT 

AUTO 

CSKIP 

GO 

LINK 

LIST 

LOAD 


MARK 

MERGE 


PROC 


RD= 


RENUM 

REWIND 

RUN 


Alerts the operator from the 
procedure file (see PROC command). 

Automatically provides numbers for 
BASIC statements. 

Skips within a procedure file on a 
specified condition. 

Resumes execution of a program that 
was halted. 

Allows loading of customer support 
functions such as tape recovery and 
diskette/tape copy. 

Displays or prints the BASIC program. 

Loads storage with data from tape or 
diskette or data from the keyboard. 
Also see Function Keys in the IBM 
5110 BASIC Reference Manual, 

SA21-9308. 

Prepares a tape cartridge or diskette 
for programs or data to be saved. 

Combines programs on tape or 
diskette with programs in storage or 
data on tape or diskette with data in 
storage. 

Initiates the execution of a procedure 
file, which contains programs, 
commands, and/or data. 

Specifies the number of digits at 
which rounding occurs for displayed 
or printed results. 

Renumbers the statements in storage. 
Rewinds the tape cartridge. 

Executes a BASIC program. 


o 

(> 


/if' "V, 
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A / 



4 

A. 



150 



SAVE Saves the BASIC program or data on 

tape or diskette. 

SKIP Unconditionally skips records in a 

procedure file. 

UTIL Displays or prints a directory of the 

contents of a diskette or tape. Also 
allows files to be renamed, dropped, 
freed, and protected, and initiates the 
SORT function (feature). 


EDITING FUNCTION 

DEL Deletes a statement or a group of 

statements from storage. 

KEYx Allows editing of key groups, where 

X = 0 to 9. 
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Appendix B. Customer Support Functions 


The following customer support functions are available for execution 
on 5110 systems having storage of 16K to 64K bytes. Details of the 
customer support functions are available in the IBM 5110 Customer 
Support Functions Reference Manual, SA21-9311. 

• Loader 

• Diskette initialization 

• Diskette-to-diskette copy 

• Tape-to-diskette copy 

• Diskette-to-tape copy 

• Tape-to-tape copy 

• Diskette compress 

• Diskette recovery 

• Tape data recovery 

• Tape header recovery 

• Diskette label display 

• Sort diskette files into a desired sequence (optical feature) 

• Compress diskette files to make unused space available 
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Index 


(A)=IDN identity matrix 115 

about BASIC 1 

about the 5110 1 

about this manual 1 

ABS(x) absolute value of x 112 

ACS(x) arc cosine of x (in radians) 116 

activating files 89 

adding to data files 92 

addition 6, 19, 107 

addition with arrays 107 

AIDX(A) indexed locations in ascending order 115 

alphabetic characters, entering lowercase 12 

alphameric keys 2,4 

another way to assign values to arrays 100 

APL special character combination 6 

APL/BASIC combined keyboard 3 

APL/BASIC switch 2 

arithmetic arrays 95,106 

arithmetic constants 114 

arithmetic hierarchy 24 

arithmetic operator keys 2, 6 

arithmetic operators 19 

arithmetic with arrays 106 

arrays 93 

addition 107 

another way to assign values 100 
arithmetic 95, 106 
assigning values 

to an entire array at once 101 
to array elements 98 
averaging 108 
character 93, 95 
defining 93, 95 
division 107 
elements 97, 102 
exercise 140 
functions 115 
multiplication 107 
one-dimensional 104 
printing 103 
subtraction 107 
two-dimensional 105 
with arithmetic 106 
ASN(x) arc sine of x (in radians) 116 
assigning values 21, 49, 67, 98, 100, 101 
to an entire array at once 101 
to array elements 98 
to variables 21 


ATN(x) arc tangent of x (in radians) 116 
ATTN (attention) key 15, 17, 27, 33 
AUTO command 38, 46 
automatic statement numbering 38 
averaging 

two sets of one-dimensional arrays 108 
two-dimensional arrays 109 


backspace key 5 

BASIC arrays 93 

BASIC command keywords 6 

BASIC description 1 

BASIC statement keywords 6, 33, 147 

BASIC statements 147 

BASIC system commands 150 

BASIC-only keyboard 3 

BASIC/APL combined keyboard 3 

BASIC/APL switch 2 

branches 52 

BRIGHTNESS control switch 2,9 


calc result function 30 

calculation results, using 30 

cartridge inserting 39, 40 

CEN(x) centigrade of x degrees 115 

centimeters per inch (&INCM) 114 

character arrays 93, 95 

character variables 29, 55, 71 

CHR(x) arithmetic expression of x 115 

clearing storage 43 

CLOSE statement 90 

closing tape files 90 

CMD key 2,5,14,15,31 

combined BASIC/APL keyboard 3 

command (CMD) key 2, 5, 14, 15, 31 

command, BASIC keywords 6, 150 

commands 

AUTO 38,46 
GO 35 
LOAD 44,46 
MARK 42,46 
RD= 35,46 
RUN 35,46 
SAVE 43,46 
UTIL 44,46 
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commands, BASIC system 150 
conversion constants 114 
conversion functions 115 
copy display function 34 
correcting keying errors 13, 34, 73 
delete a character 14 
insert a character 16 
replace a character 13 
correcting your keying errors 34 
COS(x) cosine of x radians 116 
COT(x) cotangent of x radians 116 
creating 

a diskette file 90 
a tape file 90 

CSC(x) cosecant of x radians 116 
cursor 8 

customer support functions 153 


data files 89 

DATA statement 67,98 

deactivating files 89 

defining an array 93, 95 

DEG(x) degrees in x radians 115 

DEL function 76 

delete a character 14 

delete function 15 

description 1 

DET(a) determinant 115 

device address 89 

DIDX(a) indexed locations in descending order 115 
DIM statement 93 
character variables 96 
one-dimensional arrays 95 
two-dimensional arrays 93, 96 
directory listing of programs 44 
diskette file, creating a 90 
diskette initialization 41 
diskette inserting in diskette drive 41 
diskette removing from envelope 41 
diskette storage or tape, using (your library) 39 
DISPLAY REGISTERS/NORMAL switch 2, 6 
display screen 2, 7 
display stop flashing 5 
displaying data 7 
division 6, 19, 107 


editing function 151 

elements of arrays 97,102 

ending a loop 59 

endless loops 119 

endless output 119 

entering a program 33 

entering character variables into programs 71 

entering data 7 

entering lowercase alphabetic characters 12 
error correction 13, 33, 34, 73 
example of printing 86 
EXECUTE key 2, 5, 33 
exercises 
arrays 140 
BASIC arithmetic 124 
branching 131 
how to write a program 128 
loops 134 

more things you can do with BASIC 143 
other ways to put values into programs 137 
setting up your own format—PRINT USING 
and image statements 139 
EXP(x) natural exponent of x 117 
exponentiation 19, 20, 24 
exponents 117 
expression 49 


FAH(x) fahrenheit of x degrees 115 

finding square roots 111 

flashing question mark 35, 70, 101 

flashing screen 27, 33 

FOR statement 61, 100 

forgetting to save corrected programs 119 

formatting output 83 

forward space key 5, 11, 13 


general system functions 112 
GET statement 89 
getting started 6 
GO command 35 
GOTO statement 37, 52, 59 
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HCS(x) hyperbolic cosine 116 
HOLD key 5,33,60,64 
how can a vague idea become a program 121 
how to write a program 49 
how your system handles arithmetic 19 
HSN(x) hyperbolic sine 116 
HTN(x) hyperbolic tangent 116 

C 

identity matrix 110 

IDX(C lf C 2 ) 112 
IF statement 36, 53, 59 
if you have trouble 119 
image statement 83 
IN PROCESS indicator 2,7 
indicator 

IN PROCESS 2, 7 
PROCESS CHECK 2,7 
initialization, diskette 41 
initializing variables 55 
INPUT statement 35, 69, 100 
insert a character 16 
insert function 16 
inserting a cartridge 39, 40 
inserting a diskette in diskette drive 41 
inserting new lines 73 
inserting program statements 73 
INT(x) integer part of x 112 
INV(a) inverse 115 


keyboard 

BASIC-only 3 
combined BASIC/APL 3 
keying errors, correcting 13, 34, 73 
keys 

ATTN (attention) 5, 15 
alphameric 2,4 
arithmetic operator 2, 6 
backspace 5 
CMD (command) 2 
EXECUTE 2, 5 
forward space 5, 11 
HOLD 5,33,60,64 
numeric 2,4 
scroll down 5, 10 
scroll up 5, 10 
shift 2, 4, 5 
special operator 2 

C 







keywords 6 

kilograms per pound (&LBKG) 114 

KLN(c) length 116 

KPS(c) beginning position 116 


LEN(c) length of c 112 

LET statement 49, 69, 98 

LGT(x) logarithm of x to the base 10 117 

LIST command 52 

listing a directory of programs 44 

listing program contents 52 

liters per gallon (&GALI) 114 

LOAD command 8, 44, 46 

LOG(x) logarithm of x to the base e 117 

logarithms 117 

loops 57, 119 

loops within loops 62 

lowercase character mode 12 

LTW(x) logarithm of x to the base 2 117 

L32 64 R32 switch 2, 6, 10 


making changes to your programs 73 

making headings 80 

manual description 1 

MARK command 42, 46 

marking your media 42 

math calculations in print statements 81 

MAT INPUT statement 100 

MAT PRINT statement 103 

MAT READ statement 100 

mathematical functions 24 

matrix 

functions 115 
identity 110 
multiplication 109 
taking a transpose 109 
taking the inverse 110 
MAX(xi,...) maximum value 117 
MIN(x 1( ...) minimum value 117 
more about the PRINT statement 79 
more things you can do with BASIC 111 
multiplication 6, 19, 107, 109 
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naming arrays 93, 95 

natural log (e) 114 

negative operators 24, 27 

nested loops 62 

NEXT statement 61, 100 

NUM(c) arithmetic value of c 115 

numbers are not what they seem to be 119 

numeric keys 2, 4 

numeric variables 21,55 


one-dimensional arrays 104, 108 
OPEN statement 89 
opening tape files 89 
operating keys 5 
operators 19,27 
other functions 117 

other ways to put values into programs 67 
output, endless 119 


parentheses 24 

performing several functions in the same 
expression 24 
pi (rr) 114 

positive operators 24, 27 
POWER ON/OFF switch 2, 7 
PRD(a) product 115 
PR I NT F LP statement 87 
PRINT statement 35, 50, 70, 79 
PRINT USING statement 83 
printing arrays 103 
printing blank lines 87 
printing example 86 
PROCESS CHECK indicator 2, 7 
program contents, listing 52 
program storage 39 
prompting message 70 
prompting your input 70 
PUT statement 89 
putting one-dimensional arrays together 
in a program 104 


RAD(x) radians in x degrees 115 

raising to a power 19 

RD= command 35,46 

ready message 7 

READ statement 67, 98 

record file functions 116 

REM (remark) statement 36, 50 

remark (REM) statement 36, 50 

remarks, using 50 

removing a line 76 

removing diskette from envelope 41 

RENUM command 77 

renumbering statement lines 77 

replace a character 13 

replacing one line with another 75 

repositioning files 92 

RESET statement 92 

RESTART switch 2, 7, 43 

RESTORE statement 67 

retrieving a file 91 

REVERSE DISPLAY switch 2,9 

review of what you've done 47, 72 

RLN(c) last record 116 

RND random number 112 

RND(x) random number 112 

rounding numbers 35 

RUN command 35,46 

RUN P=D command 88 

running the program 34 
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SAFE arrow 39,40 
sample run 38 
SAVE command 43, 46 
saving the program on diskette 43 
screen display 2 
scroll down key 5, 10 
scroll up key 5,10 
SEC(x) secant of x radians 116 
sequence of arithmetic operations 24 
setting up your own format—PRINT USING and 
image statements 83 
SGN(x) sign of x 112 
shift keys 2, 5 
SIN(x) sine of x radians 116 
some general system functions 112 
space bar 5 

special character combination 6 
special operating keys 2, 5 
square roots 111,114 
standard BASIC character mode 12 
starting 6 

statement keywords 6, 33, 147 
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c 

c 

c 


statement numbering, automatic 38, 77 
statements 147 
status line 8 
steps 61 

stop flashing screen 27, 33 
STOP statement 37 
storage capacity 8 
storing a program 39 
subtraction 6, 19, 107 
subtraction with arrays 107 
SUM(a) sum 115 
switches 

BASIC/APL 2 
BRIGHTNESS control 2,9 
DISPLAY REGISTERS/NORMAL 2, 6 
L32 64 R32 2,6,10 
POWER ON/OFF 2, 7 
RESTART 2, 7, 43 
REVERSE DISPLAY 2,9 
system commands 150 
system functions 112 


variables 21,71,95 
assigning values 21 
initializing 55 
numeric 21, 55 

performing several functions in the same 
expression 24 

positive/negative operators 27 
sequence of arithmetic operations 24 
that stand for characters 29 
that stand for numbers 21 
using calculation results 30 


working with elements of arrays 97, 102 
write a program, how to 49 


5110 description 1 



taking a matrix transpose 109 
taking the inverse of a matrix 110 
TAN(x) tangent of x radians 116 
tape cartridge 2, 39 
tape file, creating a 90 
tape files 39, 89 

tape or diskette storage, using (your library) 39 
trigonometric functions 116 
TRN(a) transpose 115 
two-dimensional array 105, 109 



using calculation results 30 
using remarks 50 

using tape or diskette storage (your library) 39 
UTIL command 44, 46 
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